#'S ;STOP FLAG STA QTFLAG JMP PRNT01 ;PRINT LINE ; MOVM07 CLC TYA ADC Z86 ;LINE TOO LONG ? BCS MOVM09 ;YES - JUST PRINT ; CMP #$FC ;TOO LONG ? BCS MOVM09 ;YES - >250 ; MOVM08 LDA Z86 ;SET PLUS/MINUS BPL MOVM02 ;NO BORROW ; DEC Z86+1 ;HI BYTE NEG;NO ; DEY STY Z05 ;YES - SAVE LINE POSITION STY ZB5 LDA Z46 ;A CHANGE ? BEQ PRNT01 ;NO - PRINT IT ; JSR SETP01 ;SET BOTH INDEXS LDA Z30+1 ;CALC DIFF OF STRINGS SEC SBC Z2E+1 STA Z86 BEQ MOVM04 ;STRINGS = NO MOVE ; ;--- MOVE MEMORY FOR CHANGE -E ; Z21 = Z2A END OF BASIC ; SETP01 LDA Z5C STA Z1F LDA Z5C+1 STA Z1F+1 LDA Z2A STA Z21 LDA Z2A+1 STA Z21+1 RTS ; ; ;--- COMPARE Z1F AND Z21 --- ; CMPZ01 LDA Z1F CMP Z21 BNE CMPZ02 LDA Z1F+1 CMP Z21+1 CMPZ02 RTS ;= IF SAME ; ; ;--- MOVE MEMOR ND050 ;(=JMP) ; FIND01 JSR BASC01 ;TEST IF IN BASIC STA Z05 ;SAVE DELIMITER LDX #$00 ;FLAG FOR FIND STX Z46 FND050 JSR GSTR01 ;READ STRING JSR PARM00 ;GET RANGE PARAM BCS FIND06 ;ALWAYS ; FIND05 JSR LINE00 ;NEXT LINE..YR=0 FIND06 STY Z52 ;LINE POSITE ; PRNT06 LDX #QUOMSG-MES00 LDY #LNGMSG-QUOMSG ;IMBEDDED '"' PRNT07 JMP PMESS ; ; ;--- GET FIND/CHANGE STRINGS --- ; GSTR01 LDY Z77 ;START OF STRING INY STY Z2E,X ;BEGIN OF STRING PTR LDA #$00 STA QTFLAG ;CLR QUOTE FLAG STA Z2E+1,X ;ZERO LENGTH GSHAR STA (Z5C),Y INC Z2A ;EOB+1 BNE ADD11 INC Z2A+1 ADD11 JSR PRNT00 ;PRINT LINE ADD13 LDA (Z5C),Y ;EOL SEARCH BEQ ADD04 ;EOL---EXIT INY BNE ADD13 ;ALWAYS..WAIT EOL ; ; ;--- CHANGE AND FIND CMDS --- ;SYNTAX: ;FC/STR1/STR2/,RANGE ; ;FI/STR1/RFFD2 ;EOL-RET CPY #76 ;>74 CHAR ? BCS PRNT18 ;YES...ERROR ; LDA Z80+1 ;ANY '"' ERRORS ? BNE PRNT16 ;YES BEQ PRNT11 ;NO...OK ; PRNT18 JSR PRNT05 ;LONG LINE JMP PRNT17 ;TEST IF STOP ; PRNT16 JSR PRNT06 ;IMBEDDED QUOTE PRNT17 LDA QTFLAG CMP #'S' ;STLWAYS ; ADD09 STY ZB5 ;POSITION BIT Z46 ;ADD FLAG ? BMI ADD10 ;YES...INSTALL IT ; CPY #76 ;>74 CHAR ? BCS ADD11 ;YES...PRINT LINE ; LDA Z80+1 ;IMBEDDED QUOTE ? BNE ADD11 ;YES...PRINT LINE BEQ ADD04 ;NO...NEXT LINE ; ADD10 STY Z05 ;START REF STY Z;PRINT LINE JMP FIND06 ; ; ;--- PRINT FIND/CHANGE LINES --- ; PRNT00 LDX Z40 ;HEX-LINE # LDA Z40+1 JSR RDCD9 ;PRINT DEC LINE # LDY #$00 STY Z80+1 ;CLR IMB QUOTE ERROR LDA #$20 ;SPACE PRNT02 JSR RFFD2 ;OUTPUT CHR INY ; PRNT03 LDA (Z5C),Y ;EOL ? BEZB5 ;TO REF PTR STA (Z21),Y JSR CMPZ01 ;DONE ? BNE MOVU02 ;NO RTS ; MOVU02 LDA Z21 ;Z1F=Z1F-1 BNE MOVU03 DEC Z21+1 MOVU03 DEC Z21 JMP MOVU01 ; ; ;--- TOGGLE SCREEN CASE --- ;SYNTAX : ;CS ; CASE01 LDA RE84C EOR #$02 ;VIA CASE BIT STA RE84C JMP R MOVM02 CLC ADC Z05 ;CALC MOVE TO PTR STA ZB5 BCS MOVM03 ;A MOVE DOWN ; JSR MOVU01 ;MOVE UP BEQ MOVM04 ;BRANCH ALWAYS ; MOVM03 JSR MOVD01 MOVM04 LDA ZB5 ;OLD STR BEGIN SEC SBC Z30+1 TAY INY LDA Z30+1 ;NEW STRING EMPTY ? BEQ MOVM06 ;YES...SKIP -- ; LDY #$00 MOVM01 INY ;LINE LEN LDA (Z5C),Y ;END OF LINE BNE MOVM01 ;NO ; LDA Z86 BPL MOVM07 ;ADD ; CLC TYA ADC Z86 CMP #$02 ;< 1 CHAR BCS MOVM08 ;NO...OK ; MOVM09 LDX #ENDMSG-MES00 LDY #ALTMSG-ENDMSG JSR PMESS ;CAN'T ALTER NEXT LINE LDA Y DOWN --- ; MOVD01 LDY Z05 INY LDA (Z1F),Y LDY ZB5 INY STA (Z1F),Y JSR CMPZ01 ;DONE ? BNE MOVD02 ;NO RTS ; MOVD02 INC Z1F ;Z1F=Z1F+1 BNE MOVD01 INC Z1F+1 BNE MOVD01 ; ; ;--- MOVE MEMORY UP --- ; MOVU01 LDY Z05 ;FROM REF PTR LDA (Z21),Y LDY ION FIND07 INC Z52 LDY Z52 LDX Z2E ;START OF COMPARE STRING LDA Z2E+1 ;SET CMP CTR STA Z86+1 ;HI FIND08 LDA (Z5C),Y ;END OF LINE ? BEQ FIND05 ;YES...NEW LINE ; CMP Z200,X ;MATCH ? BNE FIND07 ;NO.. ; INX INY DEC Z86+1 ;MATCHED ALL ? BNE FIND08 TR02 LDA Z200,Y ;END BEQ GSTR04 ;YES - GET OUT ; CMP Z05 ;NO - DELIMITER ? BEQ GSTR03 ;YES ; INC Z2E+1,X ;INC STRING LENGTH INY BNE GSTR02 ; GSTR03 STY Z77 ;FIX TEXT PTR RTS ; GSTR04 JMP RNGE03 ; ;--- SET Z1F AND Z21 --- ; ; Z1F = Z5C START OF MOV,RANGE ; "/" IS DELIMITER ;-DISPLAY FOUND LINES ;-OOPS ON CHANGE IN BASIC MODE ; CHNG01 JSR BASC01 ;TEST IF IN BASIC STA Z05 ;SAVE DELIMITER LDX #$00 STX Z30 ;ZERO 2ND STRING PTR JSR GSTR01 ;READ OLD STRING LDX #$02 STX Z46 ;SET CHANGE FLAG BNE FOP ? BNE PRNT11 ;NO ; PRNT04 LDA #$0D JSR RFFD2 ;'RET' JMP DLET04 ;WARM START EXIT ; PRNT11 JSR PAUSE0 ;PAUSE TEST BEQ PRNT04 ;BREAK ; LDY ZB5 ;CONTINUE ON RTS ;NORMAL EXIT ; PRNT05 LDX #LNGMSG-MES00 LDY #SAVMSG-LNGMSG BNE PRNT07 ;ALWAYS-LONG LINB5 INC ZB5 ;END REF DEY ADD12 INY ;SCAN TO EOL LDA (Z5C),Y BNE ADD12 ;NOT EOL ; CPY #251 ;LINE TOO LONG ? BCC ADD14 ;NO..OK JMP MOVM09 ;YES..TOO LONG ; ADD14 JSR SETP01 ;SET POINTERS JSR MOVU01 ;MOVE UP 1 SPACE LDY Z05 ;ADD PTR LDA Z46+1 ;ADD CQ PRNT13 ;YES ; CMP #'"' ;TEST FOR IMBED'D QUOTE BNE PRNT02 ;NO ; CPY #02 BCC PRNT02 ;1ST CHAR-OK ; INY LDA (Z5C),Y ;EOL ? BEQ PRNT14 ;YES ; INC Z80+1 ;IMBEDDED QUOTE PRNT14 DEY LDA #$22 ;RESTORE QUOTE BNE PRNT02 ;ALWAYS ; PRNT13 LDA #$0D JSR ! C392X ;WARM START & EXIT ; ; ;--- UN-NEW MEMORY --- ;RELINKS 00 00 00 AT START OF BASIC ;SYNTAX : ;UN ;'ERROR' MESSAGE IF NOTHING TO LINK ; UNNEW1 LDY #$00 LDA (Z28),Y ;SOB BNE UNNEW5 ;NOT NEW ; INY LDA (Z28),Y BNE UNNEW5 ;NOT NEW ; LDY #$04 ;1ST ; STA ZB6 ;NEW STR CTR LDX Z30 ;INDEX TO NEW STRING MOVM05 LDA Z200,X ;GET NEW STR STA (Z5C),Y INX INY DEC ZB6 ;DONE BNE MOVM05 ; MOVM06 CLC LDA Z2A ;CALC NEW END OF MEMORY ADC Z86 STA Z2A LDA Z2A+1 ADC Z86+1 ;HI STA Z2A+1 PRNT01 JSR PRNT00 (Z5C),Y STA Z5C ;INCLUDE TO LINE # STX Z5C+1 DLET02 LDA Z21 ;CHECK FROM (Z5C),Y ; C=0 Z11 < (Z5C),Y ; CMPN01 JSR NXTCHR ;GET LIN 100 ; RNGE01 BEQ RNGE03 ;ERROR ; RNGE02 BCC RNGE04 ;NUMBER OK BEQ RNGE04 ;END OF COMMAND ; CMP #'- BEQ RNGE04 ;BR IF CHR IS '-' ; RNGE03 JMP RCE03 ;SYNTAX ERROR ; RNGE04 JSR RC873 ;GET LINE# LDA Z11 ;SAVE LINE # (R1) STA Z40 LDA Z11+1 STA Z40+1 XT LINE ADD07 INY CPY #$01 ;1ST CHAR OF LINE ? BNE ADD08 ;NO....CONTINUE ; LDA #$00 ;CLEAR ERROR FLAGS STA Z80+1 ;CLEAR '"' FLAG BIT Z46 ;QT CMD ? BVC ADD08 ;NO... ; LDA QTFLAG ;ERRORS ONLY MODE? CMP #'S' BEQ ADD07 ;YES...SKIP 1ST CHAR ; LDA (Z #$00 DLET03 LDA (Z5C),Y ;MOVE DOWN STA (Z21),Y INY BNE DLET03 ; INC Z5C+1 INC Z21+1 LDA Z2A+1 ;DONE ONE EXTRA PAGE CMP Z21+1 BCS DLET03 ;NO ; DLET04 JSR RC442 ;FIX CHAINING LDA Z1F ;Z2A = Z1F + 02 LDX Z1F+1 CLC ADC #$02 STA Z2A BCC DLE N LINES HAVING IMBEDDED QUOTE ;-OOPS IF IN BASIC MODE ; ADD01 JSR BASC01 ;TEST IF IN BASIC STA Z46+1 ;ADD CHAR LDA #$80 ;ADD FLAG STA QTFLAG ;CLR FLAG ADD02 STA Z46 ;ADD/QUOTE-FLAG JSR PARM00 ;GET RANGE PARAM BCS ADD07 ;ALWAYS ; ADD04 JSR LINE00 ;NE--- DELETE IN RANGE --- ;SYNTAX : ;DE RANGE ; DLET01 JSR RNGE01 ;GET RANGE LDA Z5C ;SAVE IT LDX Z5C+1 STA Z21 STX Z21+1 JSR RC52C ;FIND IT BCC DLET02 ;SKIP IF NOT FOUND ; LDY #$01 LDA (Z5C),Y ;AT END OF SOURCE ? BEQ DLET02 ;YES ; TAX DEY LDA BNE NMBR04 ;ALWAYS NEXT LINE ; ; ;--- INSERT QUOTE --- ;SYNTAX: ;QT,RANGE ;-DISPLAY LINES WHICH ARE MODIFIED ;-STOP ON LINES HAVING IMBEDDED QUOTE ;-OOPS IF IN BASIC MODE ; QUOT01 STA QTFLAG ;TEST IF STOP FLAG CMP #'S' BNE QUOT02 ;NO... ; JSR Z70 ;NC Z77+1 ; OLDZ76 LDA Z200 ;GET CHARACTER CMP #$3A ;':' EOL OR > ? BCS OLDZ87 ;YES ; CMP #$20 ;SPACE BEQ OLDZ70 ;YES...SKIP IT ; OLDZ81 SEC ;TEST FOR 'A-Z' SBC #$30 SEC SBC #$D0 OLDZ87 RTS ;(Z87) EN20 ;END OF MOVE TABLE ; ; ;--- AUTO LINE # --- ;SMP RCE03 ;SYNTAX ERROR ; NMBR03 JSR AUTL02 ;INSTALL INCR VAL JSR Z76 ;REGET NS BEQ RNTST2 ;USE DEFAULTS ; JSR RCDF8 ;VERIFY COMMA JSR RC873 ;NS LDA Z11 STA ZDA LDA Z11+1 STA ZDA+1 JSR Z76 BEQ RNTST2 ; JSR RCDF8 ;VERIFY COMMA RNTST2 JSR RNGE02 WOR KILL00-1 .WOR MODET1-1 .WOR QUOT01-1 .WOR NMBR01-1 .WOR UNNEW1-1 .WOR MENU01-1 .WOR ENT01-1 ;RESERVE U1 .WOR ENT02-1 ;RESERVE U2 .WOR ENT03-1 ;RESERVE U3 ; ;--- WEDGE TABLE (8 BYTES) --- ;--- STORED IN Z70 THRU Z87 --- ; TABL01 JMP ENTRY1 ;WE # STA Z40 JSR NXTCHR STA Z40+1 CMPN02 LDA Z11 CMP Z40 LDA Z11+1 SBC Z40+1 RTS ;CARRY USED BY CALL ROUTINE ; ; ;--- RENUMBER --- ;SYNTAX : ;RN INC,NS,RANGE ; INC=INCR LINE VAL ; NS=NEW START LINE NUMBER ;RANGE=ORIG RANGE OF LINE #'S ; NMBR01 J JSR RC52C ;FIND OR SET PTRS JSR Z76 ;GET CURR CHR FROM BUFF BEQ RNGE05 ;BR IF END OF CMD ; CMP #'- ;A DASH ? BNE RNGE03 ;NO...SYNTAX ERROR ; JSR Z70 ;YES - SKIP DASH JSR RC873 ;GET END NUMBER RNGE05 LDA Z11 ORA Z11+1 ;ANY END NUMBER ? BNE RNGE065C),Y ;1ST CHAR CMP #$22 ;'"' ? BEQ ADD07 ;YES...SKIP IT BNE ADD10 ;INSERT '"' ; ADD08 LDA (Z5C),Y BEQ ADD09 ;EOL ; CMP #'"' ;QUOTE CHAR ? BNE ADD07 ;NO...OK ; INY LDA (Z5C),Y ;LAST CHAR ? BEQ ADD09 ;YES..OK ; INC Z80+1 ;'"' ERROR BNE ADD07 ;AT05 INX DLET05 STX Z2A+1 DLET06 JSR RC572 ;COLD START PTRS JMP RC392 ;WARM START & EXIT ; ; ;--- INPUT RANGE PARAMETERS --- ;-RANGE OPTIONS ; ,100-200 = LINES 100 THRU 200 ; ,100- = LINE 100 TO END ; ,-200 = START TO LINE 200 ; ,100 = LINE LDX #14 JSR SETIN1 ;SET ID & GET CHAR STA Z86+1 OKTEST LDY Z96 BEQ DPARS4 ;OK-ST=0 ; ;-- PRINT ST, CLOSE CH & EXIT -- ; STEXIT JSR HEXOST ;'ST=$'XX JSR RFFCC ;DEFAULT I/O LDA ZD2 ;FILE # JSR RF2AE ;CLOSE 14 ECEXIT JSR DCERR0 ;READ ERR CH JMP MODE STA ZDA ;FILENAME ADDR LDA Z2A+1 STA ZDA+1 AUTOFF LDA #$00 STA Z82 STA Z82+1 DPARS4 RTS ; ;--- CHECK ERROR CH --- ; EROKT0 JSR RFFCC ;DEFAULT I/O JSR DCERR0 ;READ ERR CH EROKT1 CLC LDA Z5F ADC Z5F+1 CMP #$60 BEQ DPARS4 ;OK EXIT BNE STEXIT ;ER;07.15.84 _@0:DFH.ED.COM-S2 ; ;--- COMMON PET/C64 PART 2 --- ; ;--- PRINT MESSAGE --- ; PMESS LDA MES00,X JSR RFFD2 ;PRINT IT INX ;CHAR POSITION DEY ;CHAR COUNT BNE PMESS ;NEXT CHAR RTS ; ; ;--- MESSAGE LIST --- MES00 QUOMSG .BYT $12,' IMBEDDED QUOT RFFD2 JSR DCERR0 ;READ ERR CH LDA ZD2 ;14 JSR RF2AE ;CLOSE 14 JMP STEXIT ;PRINT ST & EXIT ; ; ;--- PARSE DISK FILENAME --- ; DPARS1 LDY #$FF DPARS2 INY STY ZD1 ;LEN LDA (Z77),Y STA (Z2A),Y BEQ DPARS5 ;EOL ; CMP #',' ;ANY RANGE PARAM BNE DPARS2OPS! ' TXTMSG .BYT $12,' TEXT MODE ',$0D BASMSG .BYT $12,' BASIC MODE ',$0D APPMSG .BYT $0D,'APPENDING ' HEXMSG .BYT ' *=$' ENDMSG .BYT $12,' CAN',$27,'T ALTER NEXT LINE ',$0D ALTMSG TMPDVN .BYT $FF ;BOOT DEV # QTFLAG .BYT $FF ;QUOTE STOP FLAG ; ;--- COD1 DIR002 JSR INCHAR ;GET DISK CHAR DEC ZD1 BNE DIR002 ;DISREGARD MORE ; JSR OUTRES ;OUTPUT TO CMD DEV LDX Z86 LDA Z86+1 JSR RDCD9 ;HEX-DEC PRINT LDA #$20 JSR OUTCHR DIR003 JSR INCHAR ;GET DISK CHAR CMP #$00 ;EOL ? BNE DIR005 ;NO ; JSR OUTRES ';D',$C5 ;DELETE .BYT ';E',$C4 ;ERASE DOWN .BYT ';E',$D5 ;ERASE UP .BYT ';F',$C3 ;FIND & CHANGE .BYT ';F',$C9 ;FIND .BYT ';M',$C2 ;BASIC .BYT ';M',$CB ;KILL EDITOR .BYT ';M',$D4 ;TEXT EDITOR .BYT ';Q',$D4 ;INSERT QUOTE .BYT ';R',$CE ;RENUMBER S FLAG DISCM1 CMP #'$' ;DIRECTORY BEQ DIRCMD ;YES ; CMP #'#' ;CHANGE DEV # ? BNE DISCM2 ;NO... ; JMP SETDVN ;CHANGE DISK DEV # ; DISCM2 JSR DISC00 ;DISK COMMAND JMP RC392X ;WARM START ; ; ;--- DISK DIRECTORY --- ; DIRCMD LDA #'I' ;INITIALIZE CMD LD‚ INPUT CHANNEL -- ; SETIN0 LDX ZD2 ;LOGICAL FILE SETIN1 JSR RFFC6 ;SET INPUT DEV JMP RFFCF ;GET 1ST CHAR ; ; .FIL DFH.ED.COM-S2 HEX ;PRINT HEX VAL LDA #$20 ;PRINT SPACE JMP RFFD2 ; ; ;-- PRINT TO CMD DEV -- ; OUTCHR JSR RFFD2 ;PRINT CHAR JSR RFFCC ;MS OR TEXT',$0D .BYT $20,' APPEND PROGRAMS OR TEXT',$0D .BYT $20,' VERIFY PROGRAMS OR TEXT',$0D .BYT $20,' LOAD/RUN BASIC PRG',$0D .BYT $20,' SAVE PROGRAMS OR TEXT',$0D .BYT 'ADD TRAILING CHARACTER',$0D .BYT 'AUTO LINE NUMBER',$0D .BYT 'CHANGE SCRD1 ;DISPLAY MODE AND EXIT ; ; ;-- PRINT 'ST=$XX' -- ; HEXOST LDX #STMSG-MES00 LDY #SEQWRI-STMSG JSR PMESS LDA Z96 ;ST JSR DISHEX ;PRINT HEX VAL LDA #$20 ;PRINT SPACE JMP RFFD2 ; ; ;-- PRINT TO CMD DEV -- ; OUTCHR JSR RFFD2 ;PRINT CHAR JSR RFFCC ;ROR EXIT ; ;--- RESTORE OUTPUT CMD DEV --- ; OUTRES JSR RFFCC ;DEFAULT I/O LDX ZBA ;OLD CMD DEV CPX #$03 BEQ DPARS4 ;SCREEN EXIT ; LDX ZBB ;CMD FILE# JMP RFFC9 ;SET OUTPUT DEV ; ; ;--- GET DISK CHAR --- ; INCHAR LDA Z86+1 ;SAVE LAST 2 CHAR STA Z86 E ',$0D,$0D LNGMSG .BYT $12,' DATA >74 CHAR ',$0D,$0D SAVMSG .BYT 'SAVING ' POSMSG .BYT $12,' DISK DEV #' STMSG .BYT ' ST=$' SEQWRI .BYT ',S,W' ACTMSG .BYT $93,$12,' DFH EDITOR ',$92,$0D,$00 KILMSG .BYT $12,' DFH EDITOR KILLED ',$92,$0D ; OOPMSG .BYT ' O ;NO ; INY LDA (Z77),Y DPARS5 STA Z80 ;REL FLAG LDA #$00 ; ST=0 STA Z96 ; ST=0 TAX ;XR=0 LDY ZD1 ;LEN DPARS3 LDA SEQWRI,X ;ADD',S,W' STA (Z2A),Y INY INX CPX #$04 BNE DPARS3 ;NOT DONE ; LDA TMPDVN ;DEFAULT DEV # STA ZD4 LDA Z2A ;FILENAME PTRMMAND LIST --- ; TABL02 .BYT 'RU',$CE ;RUN CLST01 .BYT $BE ;'>' .BYT $AF ;'/' LOAD .BYT $A6 ;'&' APPEND .BYT $DD ;']' VERIFY .BYT $DE ;'^' LOAD/RUN .BYT $DF ;'_' SAVE OR PUT .BYT ';A',$C4 ;ADD .BYT ';A',$D5 ;AUTO .BYT ';C',$D3 ;CASE CHANGE .BYT;DIRECT CMD DEV LDA #$0D ;'RET' JSR OUTCHR LDY #$04 ;SKIP NEXT 4 CHAR BNE DIR001 ;ALWAYS ; DIR005 JSR OUTRES ;DIRECT CMD DEV LDA Z86+1 JSR OUTCHR ;PRINT DISK CHAR JSR PAUSE0 ;STOP OR PAUSE BNE DIR003 ;PAUSE...NEXT LINE ; DISBRK LDA #$0D ;RET JSR .BYT ';U',$CE ;UN-NEW .BYT $BB ;EDITOR MENU .BYT $00,$00,$00 ;RESERVE-U1 .BYT $00,$00,$00 ;RESERVE-U2 .BYT $00,$00,$00 ;RESERVE-U3 .BYT $00 ;END OF TABLE ; ;--- MENU DESCRIPTION LIST --- ; CLST02 .BYT $20,' DISK COMMANDS',$0D .BYT $20,' LOAD PROGRAY #$00 STA (Z77),Y LDA ZD2 ;FILE # STA ZBB LDA ZB0 ;CMD DEV # STA ZBA JSR DISC00 ;INITIALIZE DR JSR EROKT1 ;VERIFY OK LDA #'$ LDY #$00 STA (Z77),Y JSR DPARS1 ;PARSE FILENAME LDA #$60 ;SEC ADDR=0 JSR OPEN01 ;OPEN 14,8,0 LDY #$06 DIR001 STY ZERT LEADING QUOTE',$0D .BYT 'RENUMBER TEXT LINES',$0D .BYT 'UN-NEW (CANCEL NEW CMD)',$0D .BYT $20,' DISPLAY DFH EDITOR MENU',$0D .BYT '-U1--RESERVED-----',$0D .BYT '-U2--RESERVED-----',$0D .BYT '-U3--RESERVED-----',$0D ; ; ;--- COMMAND ADDRESS LISTEEN CASE',$0D .BYT 'DELETE LINES',$0D .BYT 'ERASE SCREEN DOWN',$0D .BYT 'ERASE SCREEN UP',$0D .BYT 'FIND & CHANGE STRINGS',$0D .BYT 'FIND STRINGS',$0D .BYT 'SET BASIC MODE',$0D .BYT 'KILL DFH EDITOR',$0D .BYT 'SET TEXT EDITOR MODE',$0D .BYT 'INSDEFAULT I/O JMP RF183 ;UNLISTEN ; ; ;--- OPEN SEQ FILE --- ; OPEN00 INC ZD1 ;',S' INC ZD1 ; ;--- OPEN PRG FILE --- ; OPEN01 STA ZD3 ;SEC ADDR IN AR LDA #14 STA ZD2 ;LOG FILE # LDA TMPDVN ;DEFAULT DEV # STA ZD4 JMP RF524 ;OPEN DISK CH ; ; ;-- SET A CHR GETF07 CMP #$0D ;END OF A LINE ? BEQ GETF04 ;YES... ; JSR SAV001 ;LOAD OR VERIFY BCS GETF06 ;OK ; LDA ZD2 ;FILE # JSR RF2AE ;CLOSE FILE JMP DISOP7 ;VERIFY ERROR ; GETF06 LDA Z96 ;STATUS OK ? BNE GETF05 ;NO... BEQ GETF03 ;YES...(=JMP) ; GETFT) ; GETF01 JSR PRSE08 ;PARSE JSR SETIN0 ;GET 1ST CHAR STA Z80+1 ;1ST CHAR LDA Z96 ;ST= 0 ? BEQ GETF11 ;YES...OPEN OK ; JMP DISBRK ;ERROR ; GETF11 LDA ZB3 CMP #'&' ;APPEND ? BNE GETF12 ;NO ; LDX #APPMSG-MES00 LDY #HEXMSG-APPMSG JSR PMESS ;'APPE ;--- LOAD AR FROM Z5C --- ; NXTCHR JSR Z5CINC ;INC FIRST LDY #$00 LDA (Z5C),Y RTS ; ; ;--- COPY EOB INTO Z5C --- ; COPT01 LDA Z2A STA Z5C LDA Z2A+1 STA Z5C+1 JSR Z5CDEC JMP Z5CDEC ;Z5C=Z2A-2 ; ;--- TEST MORE PARAMETERS --- ; PARM00 JSR Z70 ;MORE OFF JSR IRQALL ;ALL KEYS REPEAT JMP DISDVN ;DISPLAY DEV#, MODE & EXIT ; ; IRQ000 .BYT $00 ;LAST KEY DEPRESSED IRQ001 .BYT $10 ;TIMER 1 IRQ002 .BYT $10 ;TIMER 2 ; ;--- INSTALL ALL KEYS REPEAT IRQ --- ; IRQALL LDA #$10 STA IRQ001 ;TIMER 1 STA IRQ002 ;AVE AR AT Z5C --- ; SAV004 JSR SAV002 ;STORE 4 TIMES SAV002 JSR SAV001 ;STORE 2 TIMES SAV001 SEC ;STORE ONCE LDY Z9D ;VERIFY OR LOAD ? BEQ SAV000 ;LOAD ; CMP #$00 ;SKIP LINKS? BEQ Z5CINC ;YES-EXIT CMP #$01 BEQ Z5CINC ;YES-EXIT ; LDY #$00 CMP (Z5CTMSG ;NO OF CHAR JSR PMESS ;'ACTVATION MESSAGE LDX #$00 STX Z80 ;CMD POS LDA #CLST02 STA Z82 ;MSG POS STX Z82+1 MENU02 LDX Z80 LDA CLST01,X BEQ MENU03 ;END OF LIST ; PHA AND #$7F ;STRIP MSB JSR RFFD2 INC Z80 ;TEMP PLA BPL MENAVE LINE ; ; ;-- PARSE LOAD/VERIFY/APPEND TEXT CMD -- ; PRSE08 JSR Z70 ;PARSE COMMAND CMP #$00 ;EOL ONLY BEQ PRSE09 ;EOL ; CMP #',' ;DELIMITER ? BNE PRSE08 ;NO ': ,' OR EOL BEQ PRSE20 ;ERROR ; PRSE09 LDA ZB3 CMP #'&' ;APPEND ? BNE PRSE11 ;NO ; JSENTRY -- ; KILLPG LDA Z77 ;SAVE CHRGET PTR STA ZB5 ;TEMP LDA Z77+1 STA ZAD JSR KILL01 ;KILL LDA ZB5 ;RESTORE CHRGET PTR STA Z77 LDA ZAD STA Z77+1 RTS ; ;--- GENERAL KILL ROUTINE --- ; KILL01 LDX #EN20-OLDZ70 ;RESTORE CHRGET ROUTINE KILL02 LDA OLMBER RANGE (OPT) ; PUTF01 JSR PRSE02 ;PARSE JSR EROKT0 ;CHECK ERR CH LDX ZD2 ;FILE # JSR RFFC9 ;SET OUTPUT DEVICE JMP PUTF03 ;START OUTPUT ; PUTF02 LDA #$0D ;CR FOR EOL JSR RFFD2 ;OUTPUT CHR JSR Z5CINC ;SKIP LO LINK PUTF03 JSR NXTCHR ;GET HI LINK TCHR ;END OF BASIC BEQ PARM05 ;YES - DONE ; JSR CMPN01 ;CHECK LINE RANGE BCC PARM05 ;DONE RTS ; PARM05 PLA ;BACKUP 1-JSR PLA JSR AUTOFF ;TURN OFF AUTO STA ZB3 ;NOT A '^' JMP DISOP8 ;FIX CHAIN EXIT ; ; ;--- PAUSE DISPLAY TEST --- ; PAUSE0 JSR RF304 LDA #$00 ;END OF LINE JSR SAV001 ;SAVE LDA Z96 ;EOI - ALL DONE ? BEQ GETF02 ;NO ; GETF05 TYA JSR SAV002 ;MAKE ZERO LINK JSR HEXOST ;DISPLAY ST LDA Z5C ;NEW END OF BASIC STA Z2A LDA Z5C+1 STA Z2A+1 LDA ZD2 ;FILE # JSR RF2AE ;CLOSE CURRENT FINDING' JMP GETF13 ; GETF12 JSR RF42E ;L OR V MESSAGE GETF13 LDA #$01 ;JUNK FOR LINKS JSR SAV004 ;FAKE LINKS AND LINE# LDA Z80+1 ;1ST CHAR JMP GETF07 ;SAVE IT ; GETF02 LDA #$01 ;JUNK FOR LINKS JSR SAV004 ;FAKE LINKS AND LINE# GETF03 JSR RFFCF ;INPUT STUFF (RANGE) BEQ PARM02 ;NO JSR RCDF8 ;VERIFY COMMA NEXT ; PARM02 JSR RNGE02 ;GET RANGE LDA #$0D ;'RET' JSR RFFD2 ;PRINT BNE PARM04 ;BRANCH ALWAYS ; LINE00 INY TYA CLC ADC Z5C ;CALC PTR TO NEXT LINE STA Z5C BCC PARM04 INC Z5C+1 PARM04 JSR NXTIMER 2 SEI LDX #IRQVEC STX Z90+1 CLI RTS ; ; ;--- LOAD (APPEND) TEXT FILES --- ; ;SYNTAX: /D:FILENAME ; &D:FILENAME ; ; /=LOAD &=APPEND ; D : DISK DRIVE# (OPT) ; N1: BEGIN INPUTTING AT LINE N1 (OP),Y ;VERIFY OK ? BEQ Z5CINC ;YES-EXIT ; CLC ;ERROR BCC Z5CINC ;UPDATE MEMPTR ; SAV000 LDY #$00 STA (Z5C),Y Z5CINC INC Z5C ;Z5C=Z5C+1 BNE COMX00 INC Z5C+1 COMX00 RTS ;C=1 IF OK ; Z5CDEC LDA Z5C ;Z5C=Z5C-1 BNE Z5CD01 DEC Z5C+1 Z5CD01 DEC Z5C RTS ;U02 ;NOT END OF CMD ; LDA #$20 ;'SPACE' JSR RFFD2 JSR RFFD2 MENU04 LDY #$00 LDA (Z82),Y ;DESCRIPTION JSR RFFD2 INC Z82 ;UPDATE MSG PTR BNE MENU06 INC Z82+1 MENU06 CMP #$0D ;EOL ? BNE MENU04 ;NO... BEQ MENU02 ;NEXT LINE ; MENU03 JSR AUTOFF ;AUTOR COPT01 ;Z5C=Z2A-1 JMP PRSE12 ;OPEN FILE ; PRSE20 JMP RCE03 ;SYNTAX ERROR ; PRSE11 JSR Z76 ;REGET CHAR JSR RC873 ;GET START LINE# JSR RC52C ;FIND LINE (Z5C) PRSE12 LDA #$6E ;SEC ADDR 14 JSR OPEN00 ;OPEN SEQ FILE JMP RF40A ;SEARCH MESSAGE ; ; ;--- SDZ70-1,X ;ORIG CHRGET STA Z70-1,X DEX BNE KILL02 ;NOT DONE ; LDA #$F3 ;EDITOR NOT ACTIVE FLAG STA TESBYT JMP IRQNRM ;RESTORE NORMAL IRQ ; ; ;--- DISPLAY EDITOR MENU --- ; ;SYNTAX : ; OR ;XX ; MENU01 LDX #ACTMSG-MES00 ;START POSITION LDY #KILMSG-ACBEQ PUTF04 ;DONE...EOB ; LDX #$00 ;NO... JSR CMPN01 ;DONE LINE RANGE ? BCS PUTF06 ;NO... ; PUTF04 LDA ZD2 ;FILE # JSR RF2AE ;CLOSE CURRENT FILE JMP DISOP8 ;FIX LINK EXIT ; PUTF05 JSR RFFD2 ;OUTPUT IT PUTF06 JSR NXTCHR BEQ PUTF02 ;EOL BNE PUTF05 ;S01 ;STOP KEY ? BEQ CTRL03 ;YES...EXIT ; JSR RFFE4 ;GET A CHAR CMP #$20 ;SPACE ? BNE CTRL03 ;NO... ; CTRL02 JSR RFFE4 ;WAIT FOR CHAR BEQ CTRL02 ;NULL CTRL03 RTS ; ; ;--- DOS COMMANDS --- ; DISCMD BNE DISCM1 ;READ ERROR CH ; JSR SUPR00 ;TOGGLE SUPRESLE JSR RFFCC ;DEFAULT I/O LDA ZB3 CMP #']' ;VERIFY ? BEQ GETF08 ;YES ; JMP NMBR01 ;RENUMBER FILE ; GETF08 JMP DISOP8 ;FIX LINKS ; ; ;--- SAVE TEXT FILE ---- ; ;SYNTAX : _@D:FILENAME,RANGE ; ; @D : REPLACE DISK DRIVE# (ONLY @ IS OPT) ;RANGE: LINE NU 0 TEST CPY #$42 ;BASIC 4.0 ? BNE FIX401 ;NO...RTS LDY ZTSR ;LEN OF STRING BEQ FIX401 ;NULL---NO FIX REQ'D LDA ZTSR+1 ;IS STRING IN BASIC ? CMP RSOV LDA ZTSR+2 SBC RSOV+1 BCC FIX401 ;YES---NO FIX REQ'D LDA ZTRA+1 ;PTR IN VAR AREA STA (ZTSR+1),Y-- ;XR = POSITION AR=HEX VALUE ; SMFX00 STA ZTLB ;HEX COUNT SMFX01 LDA ZTLB ;MODIFIED HEX COUNT BEQ SMFX03 ;DONE DEC ZTLB ;COUNT-1 INC PARMES,X LDA PARMES,X CMP #$3A ;COUNT > 9 ? BNE SMFX01 ;NO...NEXT COUNT LDA #$30 ;COUNT BIT = 0 STA PARMES,X L00 ;>> YES--CLEAR CURS BMI SPOL04 ;TURN OFF RVS JSR RFFCC ; RESTORE DEFAULT I/O RTS ; ;--- SIMULATED BASIC INSTRUCTION --- ; PARMES .BYT 'FA$(000)',$B2,$CA .BYT '(FA$(0),000,000)',$00 ; ;--- REVISION DATE --- ; .BYT '03-29-84' ; ;--- WORKING VARIABL N LDA ZTCB JSR SMFX00 ;START POSITION LDX #$18 ;LINE POSITION LDA ZTCA JSR SMFX00 ;LEN OF STRING LDA #PARMES ;STRING ADDR-HI STA ZBAS1+1,Y JSR SWPZ00 ;SWAP ZERO PAGE SEC LDAET INPUT DEVICE SPOL01 JSR RFFE4 ;GET A CHAR TAY ;SAVE IT ; LDX STCHK ;0=C64 6=PET LDA $90,X ;ST BNE SPOL04 ;ERR OR LAST CHAR IN RECORD ; CPY #$0D ; CR ? BEQ SPOL02 ;>> YES-EOL ; INC CHCNT ;>> INCR CHAR COUNT BNE SPOL01 ;>> INC CHCNT+1 ;>> JMP LDX #$04 JSR SIMB01 LDX #$12 JSR SIMB01 LDX #$16 JSR SIMB01 LDX #$00 ;PUT NAME IN SIMB LINE BEQ SIMB02 ;(JMP) ; SIMB01 STA PARMES,X INX STA PARMES,X INX STA PARMES,X RTS ; SIMB02 LDA ZTFA STA PARMES,X LDA ZTFA+1 AND #$7F BNE SIMB03 ;NOTR ;STRING LENGTH DEY ;POINT TO STRING END WPCN04 LDA (ZTKR),Y ;STRING CHR CMP #$80 ;CHR > 127 ? BCC WPCN05 ;NO-- AND #$7F STA (ZTKR),Y JMP WPCN07 ; WPCN05 CPX ZTFD ;LOWER CASE ? BEQ WPCN06 ;NO-- AND #$3F WPCN06 STA (ZTKR),Y WPCN07 CPY #$00 ;END OT NON-NULL FIELD STA ZTRB ;FT% PART05 INC ZTIR ;NEXT FIELD CLC LDA ZTCA ;LEN ADC ZTFO ;1 IF IN STRING (0 IF NOT) ADC ZTCB STA ZTCB ;NEW START POS LDA #$00 STA ZTCA ;NEW LEN INY ;NEXT V(1) ELEMENT CPY ZTSR ;LEN OF V(1) BCS PART06 ;CONVERSION CONSTR REM65 LDX #$04 ;FILE NOT FOUND JMP (RER64) ;ERROR ROUTINE ; ;--- WORDPRO STRING CONVERSION --- ; WPCN00 LDX #'W ;WC$ (CASE) LDY #$C3 JSR GETV00 ;FIND WC$ BCS WPCN01 ;--NOT FOUND LDA ZTJR ;NULL STRING ? BEQ WPCN01 ;YES-- LDY #$00 LDA (ZTKR),YJSAGE EMSG1 *=*+3 ;ERROR MESSAGE EXCMD *=*+3 ;SIMBASIC COMMAND .PAGE .END FAULT I/O RTS ; ;--- SIMULATED BASIC INSTRUCTION --- ; PARMES .BYT 'FA$(000)',$B2,$CA .BYT '(FA$(0),000,000)',$00 ; ;--- REVISION DATE --- ; .BYT '03-29-84' ; ;--- WORKING VARIABL ;END OF STRING REF INY LDA ZTRA+2 STA (ZTSR+1),Y FIX401 RTS ; ; JTBL00 JMP REM04 ;4.0 ERROR MES 0 JMP REM14 ;4.0 ERROR MES 1 JMP REX40 ;4.0 EXECUTE ; JMP REM03 ;3.0 ERROR MES 0 JMP REM13 ;3.0 ERROR MES 1 JMP REX30 ;3.0 EXECUTE ; JMP REM64 ;C64 DEX INC PARMES,X LDA PARMES,X CMP #$3A ;COUNT > 99 ? BNE SMFX02 ;NO...NEXT COUNT LDA #$30 ,COUNT BIT = 0 STA PARMES,X DEX INC PARMES,X INX SMFX02 INX BNE SMFX01 ;ALWAYS SMFX03 RTS ; ;--- FIX BASIC 4.0 STRING REF --- ; FIX400 LDY ROMCK ;BASIC 4. ES --- ; RLFI *=*+1 ;LOGICAL FILE # RSOV *=*+2 ;START OF VAR RSOA *=*+2 ;START OF ARRAYS REOA *=*+2 ;END OF ARRAYS RBAS *=*+2 ;CHRGET PTR STCHK *=*+1 ;ST OFFSET 6=PET,0=64 YTEMP *=*+1 ;C64 ->3 (3&4->0) TZBUF *=*+33 ;TEMP 33 BYTE ZP EMSG0 *=*+3 ;ERROR MES PARMES ;1ST LINE CHAR JSR EXCMD ;EXECUTE SIMBASIC CMD JSR SWPZ00 ;SWAP ZERO PAGE LDY YTEMP LDA RBAS ;RESTORE BASIC POINTERS STA ZBAS1,Y ;>> LDA RBAS+1 ;>> STA ZBAS1+1,Y ;>> LDX ZTLN ;RESTORE X,Y LDY ZTRB+1 ;>> RTS ; ;--- UPDATE SIMBASIC LINE -SPOL01 ;>> ; SPOL02 JSR TOGL00 ;>> YES--TOGGLE CURS INC SLCNT ;INCR LINE COUNT BNE SPOL03 ;>> INC SLCNT+1 ;>> ; SPOL03 LDA SLCNT ;END COUNT ? CMP ELCNT ;>> BNE SPOL01 ;>> NO LDA SLCNT+1 ;>> MAYBE-- CMP ELCNT+1 ;>> BNE SPOL01 ;>> NO SPOL04 JSR TOG A NULL LDA #$20 ;SPACE SIMB03 INX STA PARMES,X CPX #$01 ;NAME IN BOTH PLACES ? BNE SIMB04 ÿYES... LDX #$0B ;SECOND NAME ENTRY BNE SIMB02 ;(JMP) ; SIMB04 LDX #$06 ;LINE POSITION LDA ZTIR ;STRING ELEMENT JSR SMFX00 ;FA$(IR) LDX #$14 ;LINE POSITIOF STRING ? BNE WPCN08 ;NO-- JMP SWPZ00 ;YES--EXIT ; WPCN08 DEY ;NEXT CHR JMP WPCN04 ; ;--- DATA FILE SPOOL-UP --- ; SPOL00 LDA #$00 ;ZERO START COUNT STA SLCNT STA SLCNT+1 STA CHCNT ;CHR COUNT = 0 STA CHCNT+1 LDX RLFI ;LOGICAL FILE# JSR RFFC6 ;SMPLETED DEY JMP PART03 ;GET NEXT CHR ; PART06 LDA #$00 STA ZTRB+1 JSR NCNT09 ;UPDATE FT% JMP SWPZ00 ;SWAP ZP AND EXIT ; ;--- SIMBASIC EXECUTION --- ;FA$(I)=MID$(FA$(0),CB,CA) ; SIMB00 STX ZTLN ;TEMP STY ZTRB+1 ;TEMP LDA #$30 ;CLEAR SIMBASIC VALUES ;GET CASE CHR BNE WPCN02 WPCN01 LDA #$00 ;DEFAULT TO UPPER CASE WPCN02 STA ZTFD ;CASE IND. (0=UC) ; LDX #'W ;WS$ (WORDPRO STRING) LDY #$D3 JSR GETV00 BCC WPCN03 ;FOUND IT LDX #$E9 ;UNDEF'D FUNCTION JMP EMSG0 ;ERROR EXIT ; WPCN03 LDX #$00 LDY ZTJ;07.15.84 _@0:DFH.ED.COM-S1 ÿô”””ÿÿpttpuÿÿÿw€x›‡ÿÿÿyÿÿÿ„””ôô”””ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿyÿ„””ôô|ÿÿÿŸÿÿÿÿÿˆ|ÿÿtyq”tÿyŸÿÿÿÿÿÿˆppÿyq”|ÿÿtyqôÿÿÿyÿÿÿÿyyÿ‘ÿÿÿÿÿÿÿÿÿyÿÿÿÿÿÿÿôÿÿÿyÿÿÿÿÿŸÿÿÿÿÿwÿÿÿÿÿÿÿ™ÿ™ÿÿ{ÿyÿÿÿwÿyÿÿô”””ÿÿÿÿÿÿÿwxÿÿwwÿuÿÿ„””ô””ÿÿÿÿqyÿtÿÿpÿÿÿERROR MES 0 JMP REM65 ;C64 ERROR MES 1 JMP REX64 ;C64 EXECUTE ; ; REM64 CPX #$7A BNE REM641 ;NOT DIM'D ARRAY ; LDA #$9F ;$A29F STA Z22 ;C64 ERROR ADDR LDA #$A2 JMP RA445 ;DIM'D ARRAY ERROR ; REM641 LDX #$13 ;UNDEF'D FUNCTION .BYT $2C ;SKIP NEXT I BNE GETV02 ;NO INY LDA (ZTIR),Y CMP ZTLR+1 ;2ND CHAR OK ? BEQ GETV04 ;YES GETV02 CLC ;NEXT VARIABLE LDA ZTIR ADC #$07 STA ZTIR BCC GETV03 INC ZTIR+1 GETV03 LDA ZTIR ;SEARCH COMPLETE ? CMP RSOA LDA ZTIR+1 SBC RSOA+1 BCC GETV01 ;NO RTS ;VAR NDA #$00 ;USE DEFAULT FS% = 0 BEQ FINV07 ;(JMP) ; FINV06 LDY #$03 LDA (ZTIR),Y ;SORT FIELD # FINV07 STA ZTFS ; LDX #$46 ;FIND SORT ORDER IN FO$ LDY #$CF ;>> JSR GETV00 ;>> LDY #$00 LDA (ZTKR),Y CMP #'D ;DESC ORDER ? BEQ FINV08 ;YES-- LDA #$00 ;DIR+1 NCNT08 LDA ZTKR ;TOTAL RECORD CMP ZTIR ;CURRENT RECORD LDA ZTKR+1 SBC ZTIR+1 BCS NCNT01 ;I < K = NOT DONE NCNT09 LDX #$C6 ;FT% LDY #$D4 JSR GETV00 BCS NCNT10 ;NOT DEFINED LDY #$03 ;INSERT COUNT LDA ZTRB STA (ZTIR),Y DEY LDA ZTRB+1 STA ( RAY NAME LDA (ZTKR),Y ;>> STA ZTFA ;>> 1ST CHAR INY ;>> LDA #$00 ;>> IF NO 2ND CHAR DEC ZTJR ;>> LEN-1 BEQ FINV03 ;>> LDA (ZTKR),Y ;>> 2ND CHAR FINV03 ORA #$80 ;>> STRING VAR'BL STA ZTFA+1 ;>> ; LDX #$46 ;FIND DELIM IN FD$ LDY #$C4 ;>> JSR GETORT FIELD NO BEQ NCNT06 ;COUNT NON-NULL LDY #$00 LDX #$01 STY ZTLA ;SORT FIELD LEN NCNT02 LDA ZTFD ;DELIM CMP (ZTSR+1),Y ;CHECK EACH CHAR BNE NCNT03 ;NOT FOUND CPX ZTFS ;SORT FIELD # BEQ NCNT05 ;END OF SORT FIELD INX BNE NCNT04 NCNT03 CPX ZTFS 01 LDA (ZTRA+1),Y STA ZTSR,Y ;LEN,ADDR DEY BPL UPSS01 RTS ; ;--- V(RA) = S --- ; UPRA00 LDY #$02 ;3 ELEM UPRA01 LDA ZTSR,Y ;LEN,ADDR STA (ZTRA+1),Y DEY BPL UPRA01 RTS ; ;--- CA = V(RA) --- ; UPCA00 LDY #$02 UPCA01 LDA (ZTRA+1),Y STA ZTCA,Y ;LEN, N --- ; ELEM00 LDY #$06 LDA (ZTRA+1),Y STA ZTKR ;# OF ELEMENTS DEY LDA (ZTRA+1),Y STA ZTKR+1 ; ;--- V = REF + 4 --- ; LDA ZTRA+1 CLC ADC #$04 STA ZTVR LDA ZTRA+2 ADC #$00 STA ZTVR+1 RTS ; ;--- COUNT NON NULLS SORTED --- ; NCNT00 JSR FINA00 L14 RTS ; ;---- SWAP RA AND RB ---- ; SRAB00 LDA ZTRA PHA LDA ZTRB STA ZTRA PLA STA ZTRB RTS ; ;--- CONVERT V(J) --- ; CONJ00 LDX ZTJR LDY ZTJR+1 JMP CONV00 ; ;--- CONVERT V(I) --- ; CONI00 LDX ZTIR LDY ZTIR+1 ; ;--- RA = V + 3 * CB --- ; CONV002 LDA (ZTIR),Y ADC ZTIR PHA INY LDA (ZTIR),Y ADC ZTIR+1 STA ZTIR+1 PLA STA ZTIR CMP REOA ;SEARCH COMPLETE ? LDA ZTIR+1 SBC REOA+1 BCC FINA01 ;NO ; JSR SWPZ00 ;RESTORE ZP LDY #$24 ;FA$ - FILE NOT FOUND JMP EMSG1 ;ERROR EXIT ; FINA03 LDA ZTTFO ;DELIM SKIP COUNT STA ZTIR STA ZTFS ;SORT FIELD STA ZTCB ;START POSITION JSR CONI00 ;RA=V(1) JSR UPSS00 ;S=V(RA) LDY ZTSR ;LEN OF PARTITION STRING BEQ PART04 ;NULL LDY #$00 PART02 LDA (ZTSR+1),Y ;SCAN V(1) CMP ZTFD ;DELIMITER ? BEQ PART04 ;OT FOUND EXIT: C=1 ; GETV04 INY ;FOUND IT ! LDA (ZTIR),Y STA ZTJR ;LEN INY LDA (ZTIR),Y STA ZTKR ;START ADDRESS LSBY INY LDA (ZTIR),Y STA ZTKR+1 ;START ADDRESS MSBY CLC RTS ;OK EXIT C=0 ; ;--- FIND STRING ARRAY --- ; FINA00 LDA RSOA ;START AT SEFAULT = ASCENDING FINV08 STA ZTFO RTS ; ;--- FIND VARIABLE --- ;IF FOUND C=0; ELSE C=1 ; GETV00 STX ZTLR ;SEARCH VAR NAME STY ZTLR+1 LDA RSOV ;INITIALIZE START STA ZTIR LDA RSOV+1 STA ZTIR+1 GETV01 LDY #$00 LDA (ZTIR),Y CMP ZTLR ;1ST CHAR OK ? ZTIR),Y NCNT10 RTS ; ;--- PARTITION STRING ELEMENTS --- ; PART00 LDA ZTKR+1 ;IS DIM > 255 ? BEQ PART01 ;NO...OK JMP FINA04 ;DIM'D ARRAY ERROR ; PART01 LDA #$00 STA ZTIR+1 ;MS STA ZTRB ;INITIAL FT% STA ZTCA ;FIELD LEN LDA #$01 ;SEARCH COUNT=1 STA ZV00 ;>> BCC FINV04 ;>> FOUND IT LDA #'* ;USE DEFAULT DELIM BNE FINV05 ;>> (JMP) ; FINV04 LDY #$00 LDA (ZTKR),Y ;ASSIGNED DELIM FINV05 STA ZTFD ;SAVE DELIM ; LDX #$C6 ;FIND SORT FIELD # IN FS% LDY #$D3 ;>> JSR GETV00 ;>> BCC FINV06 ;>> FOUND IT L BNE NCNT04 ;NOT SORT FIELD INC ZTLA NCNT04 INY CPY ZTSR BCC NCNT02 ;NOT END OF STRING NCNT05 LDA ZTLA ;LEN OF LAST FIELD BEQ NCNT07 ;EQUIV TO A NULL NCNT06 INC ZTRB ;UPDATE FT% BNE NCNT07 INC ZTRB+1 NCNT07 INC ZTIR ;NEXT RECORD BNE NCNT08 INC ZTADDR DEY BPL UPCA01 RTS ; ;--- SEARCH BASIC VARIABLES --- ; FINV00 LDX #'F ;FIND ARRAY NAME LDY #$C1 ;IN FA$ JSR GETV00 ;>> BCC FINV02 ;FOUND IT ; JSR SWPZ00 ;RESTORE ZP LDX #$E9 ;UNDEF'D FUNCTION JMP EMSG0 ;ERROR EXIT ; FINV02 LDY #$00 ;SAVE AR;K = TOTAL RECORDS ; LDA #$01 ;INITIALIZE START STA ZTIR LDA #$00 STA ZTIR+1 STA ZTRB ;NON NULL CTR STA ZTRB+1 NCNT01 JSR CONI00 ;V(I) JSR UPSS00 ;S=V(I) JSR FIX400 ;FIX 4.0 STRING REF LDA ZTSR ;LEN OF V(I) BEQ NCNT07 ;BYPASS NULLS LDX ZTFS ;S STX ZTCB+1 ;INDEX STY ZTCB+2 LDA ZTVR STA ZTRA+1 ;V LDA ZTVR+1 STA ZTRA+2 LDX #$03 ;3 * CB CONV01 CLC LDA ZTCB+1 ADC ZTRA+1 STA ZTRA+1 LDA ZTCB+2 ADC ZTRA+2 STA ZTRA+2 DEX BNE CONV01 RTS ; ;--- S = V(RA) --- ; UPSS00 LDY #$02 ;3 ELEM UPSSIR ;SET PTR TO ARRAY START STA ZTRA+1 ;>> LDA ZTIR+1 ;>> STA ZTRA+2 ;>> LDY #$04 ;CHECK # OF DIM'S LDA (ZTRA+1),Y ;>> CMP #$01 ;>> BEQ ELEM00 ;>> 1 = OK ; FINA04 JSR SWPZ00 ;RESTORE ZP LDX #$7A ;DIM'D ARRAY ERROR JMP EMSG0 ;ERROR EXIT ; ;--- K =YES...FIELD IS DONE INC Z„CA !LEN PART03 INY ;NEXT V(1) ELEMENT CPY ZTSR ;LEN OF V(1) BCC PART02 ;NOT DONE WITH V(1) STRING DEY LDA #$00 STA ZTFO ;CB UPDATE COOUNT=0 PART04 JSR SIMB00 ;SIM BASIC LDA ZTCA ;LEN BEQ PART05 ;NULL FIELD LDA ZTIR ;LASTART OF STA ZTIR ;ARRAYS LDA RSOA+1 ;>> STA ZTIR+1 ;>> FINA01 LDY #$00 ;FIND ARRAY NAME LDA (ZTIR),Y CMP ZTFA ;1ST CHAR OK ? BNE FINA02 ;NO INY LDA (ZTIR),Y CMP ZTFA+1 ;2ND CHAR OK ? BEQ FINA03 ;YES--FOUND NAME ; FINA02 CLC ;NEXT ARRAY LDY #$0 FSRT50 JSR CONJ00 ;V(J) LDY #$02 ;RB = V(J) FSRT51 LDA (ZTRA+1),Y STA ZTRB,Y DEY BPL FSRT51 ;NOT DONE CLC LDA ZTRA+1 ;RA = V(J+1) ADC #$03 STA ZTRA+1 BCC FSRT52 INC ZTRA+2 FSRT52 JSR UPCA00 ;CA = V(J+1) LDX #$02 FSRT53 LDA ZTRB,X ;CB = V(J) SJSR UPSS00 ;S = V(L) ; ;--- J = L --- ; FSRT30 LDA ZTLR STA ZTJR LDA ZTLR+1 STA ZTJR+1 ; ;--- I = J --- ; FSRT40 LDA ZTJR STA ZTIR LDA ZTJR+1 STA ZTIR+1 ; ;--- J = J + J --- ; CLC ROL ZTJR ROL ZTJR+1 ; ;--- IF J > K THEN FSRT70 --- ;--- IF J = K= FULL RECORD STA ZTLA ;>> LDA ZTCB ;CB LEN = FULL RECORD STA ZTLB ;>> LDX ZTFS ;SORT FIELD = 0 ? BNE CMPR02 ;NO-- JMP CMPL00 ;YES--COMPARE FULL STRINGS ; CMPR02 CMP #$00 ;CB = NULL ? BEQ CMPR04 ;YES-- JSR SWPC00 ;SWAP CA : CB JSR TSTC00 ;LOCATE RB+1),Y STA (ZTRA+1),Y DEY BPL FSRT11 ; ;--- K = K - 1 --- ; LDA ZTKR BNE FSRT12 DEC ZTKR+1 FSRT12 DEC ZTKR ; ;--- IF K > 0 THEN FSRT30 --- ; LDA ZTKR+1 BNE FSRT30 LDA ZTKR BNE FSRT30 ; ;--- V(I) = S --- ; JSR CONI00 ;RA = V(I) JSR UPRA00 ;V(EQ TSTC04 ;YES-- CPX #$01 ;START OF SEL'D FIELD ? BNE TSTC02 ;N0-- ; INY STY ZTLA ;NEW SORT FIELD BNE TSTC03 ;(JMP) ; TSTC02 INY TSTC03 CPY ZTCA ;END OF STRING ? BCC TSTC01 ;NO CPX #$02 ;MORE DELIM ? BCC TSTC04 ;NO STY ZTLA ;MAKE A NULL TSTC04 L--- ; FSRT00 CLC ;K+1 IN A LDA ZTKR+1 ROR A STA ZTLR+1 LDA ZTKR ROR A STA ZTLR INC ZTLR ;L = L + 1 BNE FSRT10 INC ZTLR+1 ; ;--- IF L < > 1 THEN FSRT20 ; FSRT10 LDA ZTLR+1 BNE FSRT20 ;L > 256 LDA ZTLR CMP #$01 BNE FSRT20 ;L <> 1 ; ;--- WIGGLELDX #$03 ;4 ELEMENTS SWPC01 LDA ZTCB,X ;L,SAL,SAH,LS PHA LDA ZTCA,X STA ZTCB,X PLA STA ZTCA,X DEX BPL SWPC01 RTS ; ;--- TEST FIELD OF CA --- ;--- FIND FIELD START ADDR & LENGTH --- ; ;IN: ZTFS =SORT FIELD # ; ZTFD =DELIMITER CHR ; ZTCA LDA ZSOV1,Y ;START/VAR TO COM'N STA RSOV ;>> LDA ZSOV1+1,Y ;>> STA RSOV+1 ;>> ; LDA ZSOA1,Y ;START/AR'YS TO COM'N STA RSOA ;>> LDA ZSOA1+1,Y ;>> STA RSOA+1 ;>> ; LDA ZEOA1,Y ;END/AR'YS TO COM'N STA REOA ;>> LDA ZEOA1+1,Y ;>> STA REOA+1 ;>> ; +1 ;RB = RA STA ZTRB+1 ;>> LDA ZTRA+2 ;>> STA ZTRB+2 ;>> JSR CONJ00 ;V(J) LDY #$02 FSRT81 LDA (ZTRA+1),Y STA (ZTRB+1),Y DEY BPL FSRT81 ;NOT DONE JMP FSRT40 ; ;==== SUBROUTINES ==== ; TOGL00 LDY #$00 ;TOGGLE CURSOR LDA (ZCURC),Y ;CURSOR ADDR EONULL ? BNE CMPL04 ;NO-- ; CPX #$00 ;ASCENDING ? BNE CMPL12 ;NO-- ; LDA ZTLB ;CB = NULL ? BNE CMPL12 ;NO-- CMPL02 RTS ; CMPL04 LDA ZTLB ;CB = NULL ? BEQ CMPL02 ;YES-- ; CPX #$00 ;ASCENDING ? BEQ CMPL06 ;YES-- JSR SRAB00 ;SWAP RA : RB ; CMPL06 LDATA ZTCB,X DEX BPL FSRT53 ;NOT DONE JSR CMPR00 ;COMPARE V(J),V(J+1) LDA ZTRA BNE FSRT60 ; ;--- J = J + 1 --- ; INC ZTJR BNE FSRT60 INC ZTJR+1 ; ;--- IF S < V(J) THEN FSRT80 --- ; FSRT60 JSR CONJ00 ;V(J) JSR UPCA00 ;CA = V(J) LDX #$02 FSRT61 LDA THEN FSRT60 --- ;--- IF J < K THEN FSRT50 --- ; LDA ZTJR+1 CMP ZTKR+1 BEQ FSRT41 ;MORE TESTS REQ'D BCC FSRT50 ;J < K BCS FSRT42 ; J > K FSRT41 LDA ZTJR CMP ZTKR BEQ FSRT60 ;J = K FSRT42 BCS FSRT70 ;J > K ; ;--- IF V(J+1) < V(J) THEN FSRT60 --- ; FIELD IN CB JSR SWPC00 ;SWAP CA : CB ; CMPR04 LDA ZTCA ;CA = NULL ? BEQ CMPL00 ;YES-- ; JSR TSTC00 ;LOCATE FIELD IN CA ; ;--- STRING (OR FIELD) COMPARISON TEST --- ; CMPL00 LDY #$01 STY ZTRA DEY STY ZTRB LDX ZTFO ;ASCENDING = 0 ; LDA ZTLA ;CA = I) = S JSR NCNT00 ;DETERMINE FT% FSRT13 JSR TOGL00 BMI FSRT13 ;TURN OFF RVS JMP SWPZ00 ;RETURN TO BASIC ; ;--- L = L - 1 --- ; FSRT20 LDA ZTLR BNE FSRT21 DEC ZTLR+1 FSRT21 DEC ZTLR ; ;--- S = V(L) --- ; LDX ZTLR LDY ZTLR+1 JSR CONV00 ;RA = V(L) DA ZTLA ;UPDATE SORT START ADR CLC ADC ZTCA+1 ;SET TO START OF FIELD STA ZTCA+1 ;>> BCC TSTC05 ;>> INC ZTCA+2 ;>> TSTC05 TYA ;SORT REF SEC SBC ZTLA ;NEW FIELD LENGTH STA ZTLA ;>> RTS ; ;--- COMPARE CA AND CB FIELDS --- ; CMPR00 LDA ZTCA ;CA LEN CURSOR --- ; JSR TOGL00 ÿ ;--- S = V(K) --- ; LDX ZÿKR LDY ZTKR+1 JSR CONV00 ÿV(K) JSR UPSS00 ;S = V(K) ; ;--- V(K) = V(1) --- ; LDA ZTVR CLC ADC #$03 STA ZTRB+1 LDA ZTVR+1 ADC #$00 STA ZTRB+2 ;RB = V(1) LDY #$02 ;V(K) = V(1) FSRT11 LDA (ZT =STRING LENGTH ; ZTCA+1=STRING START ADDRESS ;OUT: ZTLA =FIELD LENGTH ; ZTCA+1=FIELD START ADDRESS ; TSTC00 LDX ZTFS ;SORT FIELD LDY #$00 STY ZTLA LDA ZTFD TSTC01 CMP (ZTCA+1),Y ;DELIMITER ? BNE TSTC02 ;NO-- ; DEX ;END OF SEL'D FIELD ? B LDA ZBAS1,Y ;CHARGET PTR TO COM'N STA RBAS ;>> LDA ZBAS1+1,Y ;>> STA RBAS+1 ;>> RTS ; ;--- INITIALIZE - BASIC VARIABLES --- ; INIL12 JSR SWPZ00 ;SWAP ZERO PAGE JSR FINV00 ;FIND FA,FD,FS,FO JMP FINA00 ;FIND AND SET UP ARRAY ; ;--- L = INT(K/2) + 1 R #$F6 STA (ZCURC),Y RTS ;'-' AT EXIT IF RVS ON ; ;--- SWAP ZERO PAGE --- ; SWPZ00 LDX #$20 SWPZ01 LDA ZTFA,X ;$03 - $23 PHA ;TO TEMP BUFFER LDA TZBUF,X STA ZTFA,X PLA STA TZBUF,X DEX BPL SWPZ01 ;NOT DONE RTS ; ;--- SWAP CA AND CB --- ; SWPC00 (ZTCA+1),Y ;COM€AÿE CHRS CMP (ZTCB+1),Y ;>> BNE CMPL10 ;NOT EQUAL ; INY CPY ZTLB ;END OF CB ? BCC CMPL08 ;NO-- BCS CMPL12 ;(JMP) ; CMPL08 CPY ZTLA ;END OF CA ? BCC CMPL06 ;NO-- RTS ; CMPL10 BCC CMPL14 ;CA < CB CMPL12 JSR SRAB00 ;SWAP RA : RB CMPZTSR,X ;CB = S STA ZTCB,X DEX BPL FSRT61 JSR CMPR00 ;V(J),S COMPARE LDA ZTRA BEQ FSRT80 ; ;--- V(I) = S :GOTO FSRT10 --- ; FSRT70 JSR CONI00 JSR UPRA00 ;RA = V(I) JMP FSRT10 ; ;--- V(I) = V(J) :GOTO FSRT 40 --- ; FSRT80 JSR CONI00 ;V(I) LDA ZTRA ADDRESS-LSB * ;* V+5 $(1) -MSB * ;* : : * ;* V+3*N $(N) LENGTH * ;* V+1+3*N $(N) ADDRESS-LSB * ;* V+2+3*N $(N) -MSB * ;* * ;******************************** .ON ERROR * ;* (2) FILE NOT FOUND * ;* (3) DIM'D ARRAY ERROR * ;* * ;*-------- ARRAY FORMAT --------* ;* * ;* REF NAME - 1ST CHAR * ;* REF+1 - 2ND CHAR * ;* 0 ;WORDPRO CONVERSION ; ;--- INITIALIZE - ROM TYPE --- ; INIL00 LDA #$20 ;PRINT SPACE FOR C-64 JSR RFFD2 ;>> LDA #$9D ;>> AND CURSOR LEFT JSR RFFD2 ;>> LDA #$00 ;ST OFFSET FOR C-64 STA STCHK ;>> LDX ROMCK ;ROM TEST 3.0=$1B ;4.0=$42, C-64=$48 CPX TION -- * ;* * ;* FA$ - ARRAY NAME * ;* FD$ - FIELD DELIMITER * ;* FS% - SORT FIELD NUMBER * ;* FO$ - SORT ORDER * ;* FT% - RETURNED STRING COUNT * ;* * ;* * PARTITION ENTRY ** ; STRT30 JMP STRT31 ;** WORDPRO CONVERT ENTRY ** ; STRT40 JSR INIL00 ;** FILE SPOOL-UP ENTRY ** JMP SPOL00 ;START SPOOL-UP ; SLCNT .DBY $0000 ;SPOOL-UP LINE COUNT ELCNT .DBY $0000 ;SPOOL-UP END LINE COUNT CHCNT .DBY $0000 ;SPOOL-UP * ;*----- FSORT & PARTITION ------* ;* BY: JOHN L. DARLING * ;* ORIGINAL: MAR 03,1981 * ;* REVISED: NOV 14,1983 * ;* * ;*-- WORDPRO CONV., SPOOL-UP ---* ;*-- AND CHARACTER COUNT ---* ;* BY: BLAI2 C-64=$48 REM03 = $C357 ;ERROR MES 0-3.0 REM04 = $B3CF ;ERROR MES 0-4.0 REM13 = $F573 ;ERROR MES 1-3.0 REM14 = $F5BC ;ERROR MES 1-4.0 RER64 = $0300 ;ERROR MES C64 REX30 = $C702 ;EXECUTE-3.0 REX40 = $B787 ;EXECUTE-4.0 REX64 = $A7EF ;EXECUTE-C64 RA445 = ;* * ;* 3. ROUTINE TO TRANSLATE * ;* STRINGS INTO WORDPRO CHRS. * ;* -- SYS TO ORIGIN+6. * ;* * ;* 4. ROUTINE TO SPOOL-UP THRU * ;* SEQUENTIAL DATA RECORDS. * ;* -- SYS TO ORS) ZTLB = ZTCB+3 ;CB SORT LEN ; ZSOB = $28 ;START OF BASIC ZSOV1 = $2A ;START OF VAR ZSOA1 = $2C ;START OF ARRAYS ZEOA1 = $2E ;END OF ARRAYS ZBAS1 = $77 ;CHRGET POINTER ZSTP = $96 ;ST-PET ZSTC = $90 ;ST-C64 ; ; C64 ADDR = PET ADDR +3 ; FOR ZSOV1 THRU ZBNEXT INSTR INIL04 LDX #18 ;BASIC C64 JMP TABLE LDY #$00 ;BASIC ROM JMP TABLE INIL06 LDA JTBL00,X STA EMSG0,Y INX INY CPY #9 ;DONE ? BNE INIL06 ;NO-- ; LDA #ZCUR1 LDY #ZLFI1 LDX ROMCK CPX #$48 ;C64 ? BNE INIL08 ;NO... LDA #ZCUR2 LDY #ZLFI2 INPAGE ;----- ZERO PAGE USAGE ------ ; * = $0003 ; ZTFA *=*+2 ;ARRAY NAME CHRS ZTFD *=*+1 ;DELIMITER CHR ZTFS *=*+1 ;FIELD SORT # ZTFO *=*+1 ;ORDER (ASC=$00/DESC=$44) ZTIR *=*+2 ;2 BYTE INDEX ZTJR *=*+2 ;2 BYTE INDEX ZTKR *=*+2 ;2 BYTE INDEX ZTLR *=*+2 ;2 REF+2 ARRAY LENGTH-LSB * ;* REF+3 -MSB * ;* REF+4 = V DIMENSION # * ;* REF+5 # OF ELEMENTS-MSB * ;* REF+6 ---- (N) -----LSB * ;* * ;* V+3 $(1) LENGTH * ;* V+4 $(1) #$48 ;C64 ? BEQ INIL04 ;YES... LDA #$06 ;ST OFFSET FOR PET STA STCHK ;>> CPX #$1B ;BASIC 3.0 ? BEQ INIL02 ;YES... ;..NO..ASSUME BASIC 4.0 ; LDX #00 ;BASIC 4.0 JMP TABLE .BYT $2C ;SKIP NEXT INSTR INIL02 LDX #9 ;BASIC 3.0 JMP TABLE .BYT $2C ;SKIP --FOR WORDPRO CONVERT-- * ;* * ;* WS$ - WORDPRO STRING * ;* WC$ - WORDPRO CASE * ;* * ;*------- ERROR MESSAGES -------* ;* * ;* (1) UNDEF'D FUNCTICHAR COUNT ; STRT11 JSR INIL00 ;INITIALIZE JSR INIL12 ;FIND VARIABLES JMP FSRT00 ;START SORT ; STRT21 JSR INIL00 ;INITIALIZE JSR INIL12 ;FIND VARIABLES JMP PART00 ;START PARTITION ; STRT31 JSR INIL00 ;INITIALIZE JSR SWPZ00 ;SWAP ZERO PAGE JMP WPCN0NE D. STANDAGE * ;* MAY 22,1983 * ;* REVISED: FEB 2ÿÿÿÿÿÿÿÿÿÿÿÿûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿûÿÿÿÔÿûÿÿÿÿÿÿÿÒÿÿÿÿÿÿÿÿÿÒÿÿÿÿÿÒÿÿÿÿÿÿÿÿÿûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿûÿÿÿÿÿÿÿÿÐÿÿÿÐÿíÿÿÿÿÿÿÿÒ$A445 ;C64-ERROR ROUTINE RFFD2 = $FFD2 ;PRINT ACCUM RFFC6 = $FFC6 ÿSET INPUT DEV RFFCC = $FFCC ;RESTORE DEFAULT I/O RFFE4 = $FFE4 ;GET A CHAR ; .PAGE * = $7900 ; ;--- FUNCTION ENTRY POINTS --- ; STRT10 JMP STRT11 ;** FSORT ENTRY ** ; STRT20 JMP STRT21 ;*IGIN+9 * ;* >> POKE RECORD COUNT REQUEST * ;* TO ORIGIN+17&18 * ;* >> PEEK ACTUAL RECORD COUNT * ;* AT ORIGIN+15&16 * ;* >> PEEK CHARACTER COUNT * ;* AT ORIG+19&20 * ;* AS1 ; ZCUR1 = $C4 ;CURSOR ADDR 3&4 ZCUR2 = $D1 ;CURSOR ADDR C64 ZCURC = $FB ;COMMON-CURSOR ADDR Z22 = $22 ;C64 ERROR ADDR ; ZLFI1 = $D2 ;LOGICAL FILE# 3&4 ZLFI2 = $B8 ;LOGICAL FILE# C64 .PAGE ;--- BASIC ROM REFERENCES --- ; ROMCK = $FFFE ;3.0=$1B 4.0=$4IL08 STA ZCÿRÿ ÿDÿ $00,Y STA RLFI ;LOGICAL FILE # ; LDY ZCURC ;$C4 OR $D1 LDA $00,Y ;SAVE CURSOR POSITION STA ZCURC ;>> LDA $01,Y ;>> STA ZCURC+1 ;>> ; LDY #$00 CPX #$48 ;C64 ? BNE INIL10 ;NO... LDY #$03 INIL10 STY YTEMP ;ZP OFFSET 3/4=0,64=3 BYTE INDEX ZTVR *=*+2 ;2 BYTE REF ZTSR *=*+3 ;S (LEN,2 BYTE ADDR) ZTLN *=*+1 ;LENGTH-TEMP ZTRA *=*+3 ;V(X) (LEN,2 BYTE ADDR) ZTRB *=*+3 ;V(Y) (LEN,2 BYTE ADDR) ZTCA *=*+4 ;COMP REG #1:L,ADDR,LS) ZTLA = ZTCA+3 ;CA SORT LEN ZTCB *=*+4 ;COMP REG #2:L,ADDR,L è SAVE "@0:EX.CREATE",8#ò:Yü"-- AN EXAMPLE PROGRAM TO CREATE A TEST DATA --""-- FILE FOR USE BY OTHER EXAMPLE PROGRAMS --"“:«"-- INITIALIZE --"Ó$CR$²Ç(13): "-- CARRIAGE RETURN --"û.QT$²Ç(34): "-- QUOTE CHARACTER --"( è SAVE "@0:EX.CONVERT",8$ò:Xü"-- AN EXAMPLE PROGRAM USING THE 'CONVERT' --"‹"-- SUBROUTINE CONTAINED IN 'DFH SUBS$79' --"‘:Ë"-- TOP OF MEMORY = $7900 TO PROTECT SUBROUTINES --"ü$‹ Â (65534)²72 § 1080: "-- C64 COMPUTER --"' E --".ˆSC²30982: "-- CONVERT ADDRESS $7906 --"u’SP$²" ": "-- 40 SPACES --"•œWC$²"": "-- UPPER CASE --"›¦:È°"-- OPEN DATA FILE AND WORDPRO FILE --"åºŸ 8,8,8,"0:TESTFILE,S,R"Ä„ 8,WS$: "-- DI -- PAD WITH LEFT ARROW & SPACES TO MULTIPLE OF 40 CHARACTERS --"F(LE²Ã(WS$)u2AC²39«LE«40¬(LE±39)«40¬(LE±79)«40¬(LE±119)¾<"-- PREVIOUS LINE NOT VALID FOR STRING LENGTHS > 159 CHARACTERS --"éFWS$²WS$ªÇ(31): "-- ADD LEFT ARROW --" PWS$²WS$ª "ON DISK.LEFT ARROW & SPACES TO MULTIPLE OF 40 CHARACTERS --"F(LE²Ã(WS$)u2AC²39«LE«40¬(LE±39)«40¬(LE±79)«40¬(LE±119)¾<"-- PREVIOUS LINE NOT VALID FOR STRING LENGTHS > 159 CHARACTERS --"éFWS$²WS$ªÇ(31): "-- ADD LEFT ARROW --" PWS$²WS$ª è SAVE "@0:EX.SPOOL",8"ò:Tü"-- AN EXAMPLE PROGRAM USING THE 'SPOOL' --"‡"-- SUBROUTINE CONTAINED IN 'DFH SUBS$79' --":Ç"-- TOP OF MEMORY = $7900 TO PROTECT SUBROUTINES --"ø$‹ Â (65534)²72 § 1080: "-- C64 COMPUTER --"#.— D POKE TARGET # TO $7911-12 (L,H) --"Lˆ: SS²30985: "-- SPOOL ADDRESS =$7909j’: … "TARGET RECORD # ";RN„œ‹ RN³1 ° RN±10 § 1170Ÿ¦RP%²RN256: — SSª9,RP%µ°— SSª8,RN«RP%256»º:ëÄ"-- OPEN FILE, SPOOL, AND INPUT RECORD --"ÎŸ 5,8,6,"T'Y";KB$2‹ È(KB$,1)²"Y" § 1170Lˆ: SS²30985: "-- SPOOL ADDRESS =$7909j’: … "TARGET RECORD # ";RN„œ‹ RN³1 ° RN±10 § 1170Ÿ¦RP%²RN256: — SSª9,RP%µ°— SSª8,RN«RP%256»º:ëÄ"-- OPEN FILE, SPOOL, AND INPUT RECORD --"ÎŸ 5,8,6,"T ON FIELD #2 AND DISPLAY RESULTS --"IP™ "ARRAY#","ASCENDING SORT ON FIELD #2"bZFO$²"A": FS%²2: ž SSŠd JJ²0 ¤ FT%«1: ™ JJ,DA$(JJ) : ‚ JJ•n 1480›x:Í‚"-- SORT ON FIELD #1 AND DISPLAY RESULTS --"üŒ™ "ARRAY#","DESCENDING SORT ON FIELž28" ƒ "003*MYRON*08-15"-ƒ "103*DONNA*11-10"Fƒ "004*HOWARD*02-08"](ƒ "104*DEMA*03-21"v2ƒ "005*JOHN D*08-04"Ž<ƒ "105*PEGGY*07-12"”F:ELIMITER = * --"Èt˜ 9,QT$;"*_@0:";FO$;CR$;Î~:þˆ"-- READ, PRINT, AND SAVE DATA RECORDS - 8FO$²"TESTFILE": "-- OUTPUT FILENAME --".B:VL"-- OPEN THE DISK STORAGE FILE --"sVŸ 9,8,9,"@0:"ªFO$ª",S,W"y`:«j"-- CREATE FIRST LINE WITH DELIMITER = * --"Èt˜ 9,QT$;"*_@0:";FO$;CR$;Î~:þˆ"-- READ, PRINT, AND SAVE DATA RECORDS - .— 52,0: — 53,121: ‰ 1110: "-- PET --"L8: — 55,0: — 56,121: "-- C64 --"RB:}L"-- TEST/INSTALL M.L. SUBROUTINES --"§V: ‹ Â(30977)²21 ¯ Â (30980)²30 § 1160Ç`™ " LOADING DFH SUBS$79 ’"ãjœ : “ "DFH SUBS$79",8,1ét:~"-- INITIALIZ SCARD FIRST LINE --",ÎŸ 9,8,9,"@0:WPROFILE,P,W"eØ˜ 9,Ç(0);Ç(64);: "-- DUMMY 'LOAD ADDRESS'=$4000 --"kâ:–ì"-- INPUT, PRINT AND CONVERT DATA --"«ö: „ 8,WS$: TT²ST¶™ WS$:ë ž SC: "-- CONVERT WS$ TO WORDPRO CHARACTERS --"ñ:8" È(SP$,AC): "-- ADD SPACES --"E Z˜ 9,WS$;: "-- SAVE LINE TO WORDPRO FILE --"z dLC²LCª1: ‹ TT²0 § 1270: "-- GET NEXT RECORD --"€ n: x 8: 9¾ ‚™ "";LC;"DATA RECORDS CONVERTED TO WORDPRO"í Œ™ "FORMAT. WORDPRO FILE 'WPROFILE' SAVED"ý –™ "EX.CREATE" PRG "EX.CONVERT" PRG "EX.SPOOL" PRG "ÿROOF.PET" ÿRG ABLOCKS FREE. "EX.SORT" PRG "EX.PARTITION" PRG "EX.G.PRINÿ" PRG 52,0: — 53,121: ‰ 1110: "-- PET --"H8: –ÿ55,0ÿ — 56,121: "-- C64 --"NB:yL"-- ÿEST/INSTALL M.L. SUBROUTINES --"£V: ‹ Â(30ÿ77)²21 ¯ Â (30980)²30 § 1160Ã`™ " LOADING DFH SUBS$79 ’"ßjœ : “ "DFH SUBS$7ÿ",8,1åt:"~"-- INITIALIZE AN ESTFILE,S,R"Øž SS: "-- SPOOL --"0â„ 5,DA$: 56ì:dö"-- PRINT RECORD AND CHARACTER COUNT --"v™ "";DA$;""• TC²Â (SSª10)ªÂ (SSª11)¬256¿™ "THE FILE CONTAINS";TC;"CHARACTERS"Þ™ "PRIOR TO THIS RECORD."(… "ANOTHER RECORD ;_@0:DFH SUBS-S ;OPT NOLIST .GEN ;******************************** ;* 07-15-84 * ;* DFH SUBS$79 * ;* * ;* FOR: BASIC 3.0, 4.0 & C-64 * ;* * ;* 1. SORTING ROUæD #1" –FO$²"D": FS%²1: ž SS= JJ²0 ¤ FT%«1: ™ JJ,DA$(JJ) : ‚ JJC ª€I ´:n ¾"--SUBR-- WAIT FOR OPERATOR --"— È: ™ " PRESS ANY KEY TO CONTINUE ’"µ Ò: ¡ KB$: ‹ KB$³±"" § 1490Ò Ü: ¡ KB$: ‹ KB$²"" § 1500Ø æŽ1480é<:F"-- SORT TINE FOR * ;* MULTI-FIELD, SINGLE- * ;* DIMENSION STRING ARRAYS. * ;* -- SYS TO ORIGIN. * ;* * ;* 2. FIELD PARTITIONING ROUTINE* ;* FOR MULTI-FIELD STRINGS * ;* -- SYS TO ORIGIN+3. * -"’ JJ²1 ¤ 10: ‡ DA$: ™ DA$1œ˜ 9,QT$;DA$;CR$;:¦‚ JJ@°:fº"-- CLOSE DISK FILE AND QUIT --"qÄ 9: €wÎ:Ø"-- FILE DATA, ID#*NAME*BIRTHDAY³âƒ "001*TOM*05-26"Îìƒ "101*LA VERDA*09-22"çöƒ "002*JOHN B*03-24"ýƒ "102*PAT*04- +©e,È‘+L¶šÆˆe‡…‡æˆ`©¢} Ð©€¢o … &—LØ“¥0îä¦`¥0 ª–¢ÿŽí“è†zLa¢h &—Lž¢– &—¢µHµ® HžhHJJJJ `žªh) `žHŠ ÒÿhLÒÿiöii:`¥ÿIÿ…ÿ`$ÿ0ûLÒÿÉ:)(i`© sÐ ÌÿL¯ xž sðë xž 8` Ý“Þ…ˆ†‡æzÐæ{ Ý“Ï…Š†‰` s°Å k©¥ä—¢, &—®ä—© Í½© Ð)ð¿„Œí“îí“ˆÈ±_ÐûÀûL…œ j Ÿ¤¥J‘_æ-Ðæ. äœ±_ð‘ÈÐù ž…¢†3 J¢†IÐ ž…¢†I J ®•° À•„UæU¤U¦1¥2…Š±_ðíÝÐíèÈÆŠÐñˆ„Œí“¥Iðx j¥48å2…‰ðB È±_Ðû¥‰˜e‰É°¢š &—©Så—LÞœ˜e‰°ëÉü°ç¥‰ÆŠeí“° Ÿð †í“8å4¨È¥4ðï“¦3½‘_èÈÎï“Ðô¥-e‰…-¥.eŠ…. äœLAœ è SAVE "@0:EX.F.CONV-1",8%ò:fü"- AN EXAMPLE PROGRAM TO COMBINE GROUPS OF SHORT RECORDS -" "- INTO LONGER, MULTI-FIELD RECORDS IN A NEW FILE -"¦:Ê"-INITIALIZE & GET FILENAMES-"Ð$:ô.QT$²Ç(34): "-QUOTE CHARACTER-"8CR$²Ç ---- -U3--RESERVED----- žò• ‘‘‘‘Â’—›Zš¸lš’“‹“œ,œøô“ž€››Ã+”L?€LlæzÐæ{É:° É ðï8é08éÐ` ašL¶š k©¥……¥…†` Íš¥_¦`…$†% ¦ ±_ðªˆ±_…_†`¥$8å_ª¥%å`¨°Še-…-˜e.…. ±_‘$ÈÐùæ`æ%¥.Å%°ï 3¥¥"¦#i…-è†. Y¦Lƒ¤ð ðÉ-ðL¯ k©¥…C¥…D ¦â: DE$²È(DE$,1)*º˜ 9,QT$;DE$;"_@0:";NF$;CR$;0Ä:LÎ"-CONVERSION ROUTINE-"RØ:eâ: RC²0: RO$²""‡ì: „ 8,RI$: TT²ST: RO$²RO$ªRI$£öRC²RCª1: ‹ RC³FR § 1260¸˜ 9,QT$;RO$;CR$;Ê ‹ TT²0 § 1250Ú 8: 9: €"-QUOTE CHARACTER-"8CR$²Ç ß;AÄ;AÕ;CÓ;DÅ;EÄ;EÕ;FÃ;FÉ;MÂ;MË;MÔ;QÔ;RÎ;UÎ» DISK COMMANDS LOAD PROGRAMS OR TEXT APPEND PROGRAMS OR TEXT VERIFY PROGRAMS OR TEXT LOAD/RUN BASIC PRG SAVE PROGRAMS OR TEXT ADD TRAILING CHARACTER AUTO LINE NUMBER CHANGE SCREEN CASE DELE è SAVE "@0:EX.F.CONV-2",8%ò:eü"- AN EXAMPLE PROGRAM TO SPLIT LONG MULTI-FIELD RECORDS -"“"- INTO SHORTER RECORDS IN A NEW FILE -"™:½"-GET FILENAMES & OPEN FILES-"Ã$:Þ.… "OLD FILENAME ";OF$ù8… "NEW FILENAME ";NF$B `Ð jžÉ$ð É#ÐLÃž I’LØ“©I ‘z¥¸ò“¥šñ“ I’ ·–©$ ‘z w–©` — „· Ò–Æ·Ðù Â–¦‰¥Š Í½© — Ò–ÉÐ Â–© — ÐÕ Â–¥Š — á•Ðà© Òÿ g’¥¸ ÃÿLá– ÿÈ„·±z‘-ðÉ,ÐóÈ±z…ƒ©…ª¤·½n—‘-ÈèàÐõä—…º¥-…»¥.…¼©………†` Ìÿ g’¥becÉ`ððÐ Ìÿ®ñ“àðä®ò“LÉÿ¥Š…‰¢ —…Š¤ðÏ ò– Ìÿ¥¸ Ãÿ g’L E$ °‹ JJ³10 § SE$(JJ)²"0"ªSE$(JJ))º‚ JJ/Ä:NÎ"-CREATE NEW FIRST LINE-"TØ:tâ˜ 9,QT$;DE$;"_@0:";NF$;CR$;zì:—ö"-PUT FIELDS IN ARRAY-":Æ : NR²1: ¡ #8,GT$: "-DISCARD QUOTE-"×: DA$(NR)²""í: ¡ #8,GT$: TT²ST(‹ GT$²CR è SAVE "@0:EX.SORT",8!ò:Rü"-- AN EXAMPLE PROGRAM USING THE 'SORT' --"…"-- SUBROUTINE CONTAINED IN 'DFH SUBS$79' --"‹:Å"-- TOP OF MEMORY = $7900 TO PROTECT SUBROUTINES --"ö$‹ Â (65534)²72 § 1080: "-- C64 COMPUTER --"!.— 5 Òÿ ÒÿLž„© ÒÿÈ±_ðÉ"ÐôÀðÈ±_ðæ„ˆ©"Ðä© ÒÿÀL°¥„Ðð =L% Cå—ÉSÐ© ÒÿL¶š á•ðó¬í“`¢ Ð¢ L&—¤zÈ”1©å—•2¹ðÅðö2ÈÐò„z`L×š¥_…"¥`…#¥-…$¥.…%`¥"Å$Ð¥#Å%`¤È±"¬í“È‘" {Ð`æ"Ðëæ#Ðç¤±$¬í“‘$ {Ð`¥$ÐÆ%Æ$LŸÐIÐLØ“ ±+ÐÈ±+Ð ±+ðÈÐùLb¤˜ e+‘ ¦C¥D Í½ „„© ÒÿÈ±_ðÉ"ÐôÀðÈ±_ðæ„ˆ©"Ðä© ÒÿÀL°¥„Ðð =L% Cå—ÉSÐ© ÒÿL¶š á•ðó¬í“`¢ Ð¢ L&—¤zÈ”1©å—•2¹ðÅðö2ÈÐò„z`L×š¥_…"¥`…#¥-…$¥.…%`¥"Å$Ð¥#Å%`¤È±"¬í“È‘" {Ð`æ"Ðëæ#Ðç¤±$¬í“‘$ {Ð`¥$ÐÆ%Æ$LŸÐIÐLØ“ ±+ÐÈ±+Ð ±+ðÈÐùLb¤˜ e+‘ (13): "-CARRIAGE RETURN-"3B… "OLD FILENAME ";OF$NL… "NEW FILENAME ";NF$hV… "FIELDS/RECORD ";FRn`:‡j"-OPEN DATA FILES-"t:©~Ÿ 8,8,8,"0:"ªOF$ª",S,R"ÅˆŸ 9,8,9,"0:"ªNF$ª",S,W"Ë’:êœ"-CREATE NEW FIRST LINE-"ð¦: °„ 8,DE$ yð É-Ðæ s k©¥Ð©ÿ…… ›Ï` ˜•…C ˜•…D¥ÅC¥åD` ž©…“…†© ……©è…»©…¼ yð!L¯ aš yð ý® k©¥…»¥…¼ yð ý® Ïš Ë• •¥» n•e……»¥¼ n•(e†…¼ ˜•Ðû ˆ•ÐÛå—ÉSÐ s ž©"…JÆz©@Ð ž…J©€å—…I ®•° À•ÈÀÐ©…„$IPå—ÉSðì±_É"ðæÐ"±_ð É"ÐÜÈ±_ðæ„ÐÓŒí“$I0 ÀL°-¥„ ˆ: † DA$(20): "-- DATA ARRAY --"J’SS²30ÿ76: "-- SORT ADDRÿSS $7900 --"kœFT%²0ÿ "-- RECORD COUNÿ --"’¦FA$²"DA"ÿ "-- SORT ARRAY NAME --"˜°:Áº"-- OPÿN FILE AND GET DELIMITÿR --"ÞÄŸ 3,8,3,"0:TESTFILE,S,R"øÎ„ 3,FD$: FD$²È(FD$,1)þ TE LINES ERASE SCREEN DOWN ÿRASE SCREEN ÿP FIND & CHANGE STRINGS FIND STRINGS SET BASIC MODÿ KILL DFH EDITOR SÿT TEXT EDITOR MODÿ INSERT LEADING QUOTE RENÿMBER TEXT LINES UN-NEW (CANCEL NEW CMD) DISPLAY DFH ÿDITOR MENU -U1--RESERVED----- -U2--RESERVED- Ÿ 8,8,8,"0:"ªOF$ª",S,R"1LŸ ÿ,8,9,"0:"ªNF$ª",S,W"7V:[`"-INITIALIZE & GET DELIMITER-"aj:wt† SE$(20),DA$(20)~CR$²Ç(13): QT$²Ç(34)±ˆ: ¡ #8,DE$: ‹ DE$²QT$ § 1160Ó’: ¡ #8,GT$: ‹ GT$³±CR$ § 1170ãœ JJ²1 ¤ 20þ¦SE$(JJ)²Ê(Ä(JJ),2)ªD ž¢8 &—¥ Hž© LÒÿ Òÿ ÌÿL®ÿæ·æ·…¹©…¸ä—…ºLÀÿ¦¸ ÆÿLÏÿ½1— ÒÿèˆÐö` IMBEDDED QUOTE DATA >74 CHAR SAVING DISK DEV # ST=$,S,W“ DFH EDITOR ’ DFH EDITOR KILLED ’ OOPS! TEXT MODE BASIC MODE APPENDING *=$ CAN'T ALTER NEXT LINE ÿRUÎ¾¯¦ÝÞÜ$ § 13902DA$(NR)²DA$(NR)ªGT$0<‹ GT$³±DE$ § 1310DFNR²NRª1: ‰ 1300JP:hZ"-SAVE RECORDS TO DISK-"nd:‚n: JJ²1 ¤ NR«1ªx˜ 9,QT$;DA$(1);SE$(JJ);DA$(JJ);CR$;Â‚‚ JJ: ‹ TT²0 § 1290ÒŒ 8: 9: € JJ²1 ¤ 20þ¦SE$(JJ)²Ê(Ä(JJ),2)ªD 2,0: — 53,121: ‰ 1110: "-- PET --"F8: — 55,0: — 56,121: "-- C64 --"LB:wL"-- TEST/INSTALL M.L. SUBROUTINES --"¡V: ‹ Â(30977)²21 ¯ Â (30980)²30 § 1160Á`™ " LOADING DFH SUBS$79 ’"Ýjœ : “ "DFH SUBS$79",8,1ãt:û~"-- INITIALIZE --" Ø:/â"-- LOAD DATA TO ARRAY ELEMENTS #5 THRU #148ìJA²4bö: JA²JAª1: „ 3,DA$(JA): ‹ ST²0 § 1270j 3p :Ž"-- DISPLAY RAW DATA --"´™ "ARRAY#","RAW DATA FROM DISK"Ø( JJ²0 ¤ 15: ™ JJ,DA$(JJ): ‚ JJã2 1480é<:F"-- SORT DISK COMMANDS LOAD PROGRAMS OR TEXT APPEND PROGRAMS OR TEXT VERIFY PROGRAMS OR TEXT LOAD/RUN BASIC PRG SAVE PROGRAMS OR TEXT ADD TRAILING CHARACTER AUTO LINE NUMBER CHANGE SCREEN CASE DELETE LINES ERASE SCREEN DOWN ERASE SCREEN UP FIND $ ‘w Gw©` Þw „Ñ wÆÑÐù ’w¦†¥‡ #t© Ñw wÉÐ ’w© Ñw ÐÕ ’w¥‡ Ñw ³vÐà© Òÿ pr¥Ò AtL¯w ÿÈ„Ñ±w‘*ðÉ,ÐóÈ±w…€©…–ª¤Ñ½v Àw¥\…*¥]…+¥Ò At Ìÿ¥³É]ðLê{Lr (r w¦Ò ÉÿLðu© Òÿ [v kÐ¥®…-¥¯…. Y¦ 3¥ð“É^ðLž Ž¦L®§æ·æ·¢% &— y Òÿ sÉðÉ,Ðò ý® y Ïš© Òÿ©nL—ä—…º ±ÿ©o…¹ “ÿ ±zð ¨ÿÈÐö ®ÿ jžä—…º ´ÿ©o…¹ –ÿ ¥ÿ…b ¥ÿ…cÉ0ÐÅbð ¤’¥b qž¥c qžÉ ð ¥ÿÐô «ÿ$ÿ jž` ±zÉ@ÐÈ±z)þÉ0ðL¯Lw– ¬’¥L•¥+…‡¥,…ˆ¦-¤.†‰„Šä—…º sÉðÉ,Ðõ sÉ$ÐÉ ªžË¥„…û¥……ü¥†…É¥‡…Ê©óp \tL7whh up tð1¥‚ƒð+¥e‚…`¥eƒ…_¢8 t &t¢½ðoèÐõ© oè†žÉ:ðË¦|0Lt¢ÿ è½É ðøÐè½É0É:ô½É Ðè½ð™èÈÐô™ÈÈ™ÈÈÈLt¢€©ð®÷s©ÿ…††‡¥Ä…„¥Å……$†0©ÿ °~¢µ„Hµ†•„h•†Êó0øs °~¢© „© ²~¥‡¤†Ä„å…°ëhhLüs E…¶ Eª¥¶ ~Lë} ~³xÉSÐ© ÒÿL„{ ³vðó¤µ`¢ Ð¢ Lôw¤wÈ”.©³x•/¹ðÅðö/ÈÐò„w`L¥{¥\…¥]… ¥*…!¥+…"`¥Å!Ð¥ Å"`¤È±¤µÈ‘ @~Ð`æÐìæ Ðè¤±!¤µ‘! @~Ð`¥!ÐÆ"Æ!Lc~LèILèLäs ±(ÐÈ±(Ð ±(ðÈÐùLùs˜ e(‘(©e)È‘(L„{Æ…e„…„æ…`©¢} Ð©€¢o …| ôwLäs¥|0îä¦|`¥|0uL)t¥‘Í+tðöNuðÎNuÐìÎOuÐç©Ou©…—©…¨ÐØ©/,©^,©],©&…³É]Ð©,©… Gw¤ÑÐLt¥|¥³É^ÐLî~Lcu©` Þw w Ìÿ¥Ò At pÉ,Ð¥³É^ðÉ&ð pÉ$Ð {°LtÉÐÜ©`…Ó Jt Pt ,t¥Ó 2t >t…û >t…ü¥€Ð¦(¤)ÐÉ$Ð¦†¤‡†û„ü¥³É&Ð8¥*é…û¥+é…ü ø~¢‹ ôwLãq ø~ Mt Gt ø~ Àw¥–)¿ð¥Ð „žåA` Ø~©……ƒ© …‚©è…Ú©…Û vð!Lt /{ vð t t¥…Ú¥…Û vð t { žv bv¥Ú Ave‚…Ú¥Û Av(eƒ…Û kvÐû [vÐÛ³xÉSÐ p Ø~©"…GÆw©@Ð Ø~…G©€³x…F v° “vÈÀÐ©…$FP³xÉSðì±\É"ðæÐ!±\ð É"ÐÜÈ±\ðæÐÓ„µ$F0 ÀL°+¥Ð'ðÀ„„µæµˆÈ±\ÐûÀûLO} /~ c~¤¥G‘\æ*Ðæ+ ª}±\ð”ÈR &— ”LØ“¥zí“¥{î“ ”í“…zî“…{`¢½Bš•rÊÐø©óL¹¢A &—¢†ƒ©$¢˜……††¦ƒ½é—ð&H) Òÿæƒhî© Òÿ Òÿ ±… Òÿæ…Ðæ†É ÐïðÓ ª– x”LÐž@©v”w”x¢ÆŽ¢ŽX` :• —…„¥ðLg–ð“É&Ð ¢‹ &—L°” Òõ© h•¥„LÂ”© h• ÏÿÉ ð n•°¥¸ ÃÿLç‘¥Ððæ© n•¥ðØ˜ k• ò–¥_…-¥`….¥¸ & CHANGE STRINGS FIND STRINGS SET BASIC MODE KILL DFH EDITOR SET TEXT EDITOR MODE INSERT LEADING QUOTE RENUMBER TEXT LINES UN-NEW (CANCEL NEW CMD) DISPLAY DFH EDITOR MENU -U1--RESERVED----- -U2--RESERVED----- -U3--RESERVED----- Ü~Äv$q-q*q'qÒre|({{~:{s ÆÿLÏÿ½ÿw ÒÿèˆÐö` IMBEDDED QUOTE DATA >74 CHAR SAVING DISK DEV # ST=$,S,W“ DFH EDITOR ’ DFH EDITOR KILLED ’ OOPS! TEXT MODE BASIC MODE APPENDING *=$ CAN'T ALTER NEXT LINE ÿÿRUÎ¾¯¦ÝÞß;AÄ;AÕ;CÓ;DÅ;EÄ;EÕ;FÃ;FÉ;MÂ;MË;MÔ;QÔ;RÎ;UÎ»ÐìÎw”Ðç©w”©…ÅðÜ©/,©^,©],©&ð“É]Ð©,©…“… w–¤·ÐL¯¥ ð“É^ÐL,žL”©` — Ò– Ìÿ¥¸ Ãÿ sÉ,Ðð“É^ðÉ&ð sÉ$Ð ¹ž°L¯ÉÐÛ©…¸©`…¹ ¯õ Õó¥º ´ÿ¥¹ –ÿ ¥ÿ…® ¥ÿ…¯¥ƒÐ¦+¤,ÐÉ$Ð¦‰¤Š†®„¯ð“É&Ð8¥-é…®¥.é…¯ 6ž¢‹ &—LØ‘ 6ž Òõ óô 6ž ò–¥)¿ð¥“Ð¢,¢L7¤© Òÿ¥ƒvð¢ ×{°¥Ò AtLr Òÿ kvðÜÐö pÉðÉ,Ðõð¥³É&Ð svL3vLt v t t©n ÚwLJt >v Av8¤ðÉðÉð Ñ\ð ‘\æ\Ðæ]`¥\ÐÆ]Æ\` [v ±\`¥*…\¥+…] bvLbv pð t {© ÒÿÐÈ˜e\…\æ] kvð ×{`hh zw…³Lr Dtð äÿÉ Ð äÿðû`Ð ,É$ð É#ÐL… PrLäs©I ‘w¥Ò…»¥°…º Pr ‡w© Ä©ó©‡¦‰¤Š ØÿLg–hh a k©ð1¥…†ð+¥e……c¥e†…b¢8 I¼ Ý½¢½ðwèÐõ© wè†ÆÉ:ðË¦0LŸ¤¢ÿ è½É ðøÐè½É0É:ô½É Ðè½ð™èÈÐô™ÈÈ™ÈÈÈL¢¤®ó“©ð®ô“©ÿ…‰†Š¥Ñ…‡¥Ò…ˆ$‰0©ÿ í¢µ‡Hµ‰•‡h•‰Êó0©ÿ í¢© ‡© ïÿŠ¤‰Ä‡ÿˆ°ëhhLƒ¤ ƒÿ ÿï“ ƒžªï“`Ažÿ¢`ƒØLwÃL’ÃL™ÃL®ÃL±ÃLBÄL,ÅLrÅL§ÅLÄÆLsÈLøÍLÎLUÛLÙÜLéÜL.æL¶ðLºðL(ñLoñLñLƒñLŒñL®òLóLUóL ôL.ôLfôL$õLpõLöL¾öLæøL{üLí³L´L ´L"´L%´L¶´L£µLéµL"¶LJ·Lö¸Lõ¾L¿LÍLƒÏL“ÏLUäLÒðLÕðLCñLžñL®ñL¹ñLÀñLâòL5óLóLIôLmôL¥ôLcõL¯õLÌöLýöL+ùLÀü¢R ôw òtLäs¥w…µ¥x… òt¥µ…w¥…x`¢Í zw¢ÿ†µè†wLup¢h ôwLÒ~¢– ôw¢µúHµû hHJJJJ "ªh) "HŠ ÒÿhLÒÿiöii:`¥ Iÿ… `$ 0ûLÒÿÉ:)(i`© pÐ ÌÿLt : pðë : 8` ésÞ……†„æwÐæx ésÏ…‡††` p°Å t¥²x¢, ôw®²x© #t© Òÿ ÒÿLÒ~t „© ÒÿÈ±\ðÉ"ÐôÀðÈ±\ðæˆ©"Ðä© ÒÿÀL°¥Ðð `, nLVt© Òÿ¥€Ð¥É…*¥Ê…+ t t¥³É^ðLÒ~ tLtæÑæÑ v Òÿ pÉðÉ,Ðò t v {© Òÿ©nLÚw²x…Ô©o…Ó /t¥Ó 2t ±wð 5tÈÐö ;t ,²x…Ô ,t©o…Ó 2t >t…_ >t…`É0ÐÅ_ð r¥_ 3¥` 3É ð >tÐô 8t$ ,` ±wÉ@ÐÈ±w)þÉ0ðLt Gw¢% Lôw µr¥|LÚu Yt©a…Ó pÉð É,Ðõ pÉ$ÐÐ lÐù Ø~…¢†0 ~¢†FÐ Ø~…¢†F ~ v° “v„RæR¤R¦.¥/…‡±\ðíÝÐíèÈÆ‡Ðñˆ„„µ¥Fðt /~¥18å/…†ðA È±\Ðû¥†˜e†É°¢š ôw©S³xL¤}˜e†°ëÉü°ç¥†Æ‡e…µ° c~ð K~¥µ8å1¨È¥1ð…¶¦0½‘\èÈÆ¶Ðõ¥*e†…*¥+e‡…+ ª}L}¦@¥A #t „© ÒÿÈ±\ðÉ"ÐôÀðÈ±\ðæˆ©"Ðä© ÒÿÀL°¥Ðð Ãÿ Ìÿð“É]ðL›L’ ’ ±–¦¸ ÉÿL•© Òÿ ˆ• ˜•ð¢ ›°¥¸ ÃÿL’ Òÿ ˜•ðÜÐö sÉðÉ,Ðõð ð“É&Ð •L`•L¯ y k© ¦©n —L¯õ k• n•8¤“ðÉðÉð Ñ_ð ‘_æ_Ðæ``¥_ÐÆ`Æ_` ˆ• ±_`¥-…_¥.…` •L• sð ý® Ïš© ÒÿÐÈ˜e_…_æ` ˜•ð ›`hh ª–ð“L’ íöð äÿÉ Ð äÿðû—så|÷|»~ÐtÃ~N|é{†~upppLUp€L~pæwÐæxÉ:° É ðï8é08éÐ` /{L„{ t¥…‚¥…ƒ` ›{¥\¦]…!†" t ±\ðªˆ±\…\†]¥!8å\ª¥"å]¨°Še*…*˜e+…+ ±\‘!ÈÐùæ]æ"¥+Å"°ï t¥¦ i…*è†+ tLüsð ðÉ-ðLt t¥…@¥…A t vð É-Ðæ p t¥Ð©ÿ…… á{Ï` kv…@ kv…A¥Å@¥ DATA"v™ " 4 ’ NEW FIXED DATA + OLD DATA FIELD"0€™ " 5 ’ DATA FROM TWO OLD DATA FIELDS"`Š™ "---------------------------------------"”™ " 9 ’ RE-DEFINE OR EXIT"¤ž: RD²0: ™ "YOUR CHOICE -----";Ñ¨K2²FC(NF): 2200: ‹ K2²9 § RD²1:KB$²SC$: 1780: SC$²KB$ýÖ‹ SC$²"Y" § 3390à: NF²1: ‰ 3130ê:<ô"---SET UP NEW FILE STRUCTURE--"Bþ:r: ‹ NF±19 § ™ " 20 FIELDS MAX. ’": ‰ 3390ˆ™ "MORE FIELDS";¿KB$²CO$(NF): 1780: CO$(NF)²KB$: ‹ KB$²"N" § 3390Ë&NF²NFª1ÑyLyLyL'y 0yL 0y ÄyLÍy 0y ÄyL`} 0y ØzLÆ~© Òÿ© Òÿ©Ž®þÿàHð©Žàð¢,¢ ,¢ ½–~™±èÈÀ Ðô©Ä Ò®þÿàHÐ©Ñ ¸…û¹…¤û¹…û¹…ü àHÐ Œ¹*†¹+‡¹,ˆ¹-‰¹.Š¹/‹¹wŒ¹x` Øz á{L…|¥ j…¥j…æÐæ¥ÐJ¥ÉÐD Ïz¦¤ ¡{ À{¥i… YOU USE THIS PROGRAM TO"J™ "ADD FIXED DATA IT IS POSSIBLE TO CREATE"JT™ "RECORDS OVER 75 CHARACTERS LONG WHICH"v^™ "CAN'T BE HANDLED BY 'DFH' PROGRAMS."¦h™ "REPLACING YOUR SOURCE FILE COULD CAUSE"Õr™ "EFFECTIVE LOSS OF ACCESS TO THAT DAT¦ „¥ÑÐÊðàÐÈ„ÐÈÄëà„¥e…æ˜8å…`¥…¥ …#¦ÐLR{Éð êz úz êz¥ð úz „ˆ„¦¥Ð àÐ$¥#Ð `¥#ðûàð ‹{±Ñ!ÐÈÄ#°Äï` ‹{`¥H¥…h…`¦ ¤L¡{¦¤ †!„"¥…¥…¢¥!e…¥"e…ÊÐð` ±™ˆø` ¹‘ˆø` ±™ˆø`¢F Á ?| Øz¢éL± ±…--"áª :´ : ‹ TY²6 § K1$²"0": ‰ 2770¾ ™ "OUTPUT FILE TO DRIVE";NÈ K1$²DO$: 2150: ‹ K1$³"0" ° K1$±"1" § 2740pÒ : DO$²K1$: ‹ FO$²"" § FO$²FI$vÜ :¬æ : ™ "OUTPUT FILE NAME";: K1$²FO$: 2150: FO$²K1$Íð ‹ Ã(FO$)³14 § RE$²"": ‰ 2830ú ™ Y1™ "ANY MORE FILES";: KB$²MF$: 1780: MF$²KB$#ò ‹ MF$²"Y" § 2550 #ü :*#"---PROGRAM TERMINATION--"0#:?#: 8: 9e#$: ™ "PRESS Q ’ TO QUIT, OR --"‹#.™ "ANY OTHER KEY FOR MASTER MENU"©#8 1700: ‹ KB$³±"Q" § 3660×#B™ " PROGRAM TERMI©…©… …… { À{ u~¥ð,¦ð" ¢„¥ÑÐäðèÐäÐæÈÄè¥ðæÐææÐæ ¥Å¥ å °·¢Æ Ô ?|° ¥‘ˆ¥‘`¥ ðLÒ|©… ……©………… { À{¤ð ±ÅðæÈÄóˆ©… Ä}¥ð¥…æ¥ee … ©…ÈÄ°ˆL}©… K}LØz†„©0¢ Ý}¢ Ý}¢ Ý}¢ðbèbèb`¥b¥)Ð H ™ " ";FI$;" ’ -TO- ";FO$;" ’"!R ™ "PRESS R ’ TO RE-DEFINE OR‘": 1690,!\ ‹ KB$²"R" § 2540A!f ‹ KB$²"Q" § 3610G!p :!z "---OPEN INPUT AND OUTPUT FILES AND DO CONVERSION--"‡!„ :¾!Ž Ÿ 8,8,8,DI$ª":"ªFI$ª",S,R": 1980: ‹ EN³±0 § 2510Ê!˜ „”É€)‘Läð)?‘ÀÐLØzˆLð~©yyyy®… Æÿ äÿ¨®ŽµÐ*À ðîyÐìîyL$ ÏzîyÐîyyÍyÐÓyÍyÐË Ïz0û Ìÿ`FA$(000)²Ê(FA$(0),000,000)03-29-84ðæÈÄóˆ©… Ä}¥ð¥…æ¥ee … ©…ÈÄ°ˆL}©… K}LØz†„©0¢ Ý}¢ Ý}¢ Ý}¢ðbèbèb`¥b¥)Ð ‰ 2510ü²FC(NF)²K2: ‹ FC(NF)²1 § 1480: ‰ 3080¼‹ FC(NF)²2 § 1540: ‰ 3080DÆ‹ FC(NF)²3 § 1480: 1540: ‰ 3080lÐ‹ FC(NF)²4 § 1540: 1480: ‰ 3080‚Ú‹ FC(NF)²5 § 3320•ä™ "‘‘": ‰ 3230›î:Ïø: ™ "FIRST OLD DATA FIELD";: K2²OP(NF):0:û:: ™ "“FIRST RECORD (";CF;"FIELDS) IN"'D™ "SOURCE FILE ";FI$;" ’ IS:";CR$;FL$XN™ "NEW DATA FIELD #";NF;" ’ TO CONTAIN:"ƒX™ " 1 ’ DATA FROM AN OLD DATA FIELD"¢b™ " 2 ’ NEW FIXED DATA"Òl™ " 3 ’ OLD DATA FIELD + NEW FIXED¥i… ±‘ˆù¥ÐÆ Æ¥ Ð'¥Ð# { Ë{ ó| Ïz0ûLØz¥ÐÆÆ¦¤ ¡{ À{¥… ¥…¥ …¥… & &¥Å ð °¥ Åð3°G –{ ±™ˆø¥i…æ Ö{¢µ• Êù /{¥Ðæ Ðæ –{ Ö{¢µ• Êù /{¥ð { Ë{LÞy {¥…¥… –{ ±‘ˆùLFz ±ûIö‘û`¢ µH½•hÊñ`¢µ Hµ• h•Êó`A."÷|: ™ "REPLACE EXISTING FILE";† 1760: ‹ KB$²"N" § 2510 RE$²"@"&š:a¤: ™ "DELIMITER TO BE USED";: K1$²DL$: 2150: DE$²K1$„®FD$²DE$: 1590: ‹ EF²1 § 2980Š¸:´ÂFD$²DL$: ‹ RD²1 ° FP²0 § FP²1: ‰ 3040èÌ™ "SAME CONVERSION"ÿ: È©Æ ð± €…¢F Ä ?|©*Ð ±…¢Æ Ó ?|©ð ±…¢F Ï ?| ±ÉDð©…`†„†…‡… ±ÅÐÈ±Åðÿi…æ ¥Íˆ¥ í‰Ú`È±… È±…È±… `ˆ…‰… ±ÅÐÈ±Åð$ ±eHÈ±e … h…ÍŠ¥ í‹Õ Øz $L´¥…¥ … ±Éð Øz¢zL± ±…ˆ±… ÿi…¥i…` …|$ÿ" NAME TOO LONG ’";Y0$: FO$²È(FO$,13)ÿ ‰ 2790ÿ0ÿ: 2030ÿ ‹ ÿR²1 ¦ÿÿR²0ÿ ‰ 2540SŸ ÿ,8,9,RE$ªDO$ª":"ªFO$ª",S,R"~"„ 15,EN,EM$,ET,ÿSÿ 9: ‹ EN²62 § 2ÿ80›,‹ EN³ÿ0 § 1ÿÿ0: ‰ 2510±6‹ FO$³±FI$ § 2ÿ40ì@ÿ Y1$;" CAUTION ’";Y0$ÿ" IF ÝNATED ’": 1ÿ 15ÿ €$L: ÿS$²"DFH BOOT": Ÿ 8,8,8,"0:"ªPS$ª",P,R"$$V 1ÿ80: 8: ‹ ÿN²0 § 36ÿ0X$`™ "TRYING ÿO LOAD ";PS$;" ’": 1860: ‰ 3620‚$j: 1: 15: ™ " LOADING ";PS$;" ’"™$t— 824,248: “ PS$,8CR$ÿ" CONVERSION COMPLETE ’"ï"è © èbàÐ¢Ðç¢¥ E~¢¥ E~¢¥ E~©b¬™w©™x Øz8b · Øz¬Œ™w™x¦¤`…#¥#ð)Æ#þb½bÉ:Ðð©0bÊþb½bÉ:Ð ©0bÊþbèèÐÓ`¬þÿÀBÐ¤ð¥Í†¥í‡ ¥‘È¥‘`LÏ³L¼õL‡·LWÃLsõLÇL±~LÁ~Lï§àzÐ ©Ÿ…"©¢LE¤¢,¢l¢W Ã ?|° ¥ ð ±Ð©…¢W Ó ?|¢éL±¢¤ ˆ± 8,X1$õ!¢ Ÿ 9,8,9,RE$ªDO$ª":"ªFO$ª",S,W": 1980"¬ ‹ EN³±0 § 9: ‰ 2510"¶ :5"À ˜ 9,QT$;DE$;"_@0:";FO$;CR$;a"Ê 1260: 1980: 8: 9: ‹ EN²0 § 3550—"Ô ™ Y1$;" CONVERSION NOT SUCCESSFUL ’";Y0$: ‰ 2510½"Þ : ™ CR$;" CONVERSION COMPLETE ’"ï"è pL pLÞtL pL pó®þÿàð¢l½etùsÊÐ÷Žÿ‡ìÿƒð ©‡÷s©°øs òt¢½{•yÊø©²x¢ pä4˜å5°†4„5Lu…µ†¢òŽp¦xàÐ¦wÐ º½ÍtðÐ¤¶¦¥µÉ:`É ðEL"{ up°Ls„¶¢††¤w¹]´xðÉ€ðæè½³xú½´xÐåðÁèÈÐá„w¥ ª½ÑzH½ÐzH spLpx*t…+t…‘X`½Í`tÐ½ÍatÐ bt¥—ÉÿðÍMuðMu©N 2200 ‹ K2³1 ° K2±20 § ™ Y1$;" ILLEGAL # ’";Y0$: ‰ 3320 OP(NF)²K2I : ™ "SECOND OLD DATA FIELD";: K2²CP(NF): 2200€ ‹ K2³1 ° K2±20 § ™ Y1$;" ILLEGAL # ’";Y0$: ‰ 3350– * CP(NF)²K2: ‰ 3080œ 4 :Ä > : ™ " READY TO CONVERT FILE: ’"é è SAVE "@0:DFH SWAP",8"ò:Vü" A DATA FILE HANDLER PROGRAM TO RE-STRUCTURE"" MULTI-FIELD SEQUENTIAL DATA FILES."‡:.:¶8"---SET TOP OF BASIC IF REQUIRED--"¼B:îL‹ Â (65534)²72 § 1140: "-- C-64 COMPUTER --"$V‹ Â (824)³± : ™ Y1$;" DISK ERROR ’";Y0$;CR$;EN;EM$;ET;ES: Ž!Ð:CÚ"--SUB--TEST #BLOCKS FREE--"Iä:î: ER²0: Ÿ 14,8,0,"$"ªDO$ª":": 1980: ‹ EN²0 § 2070¼ø 14: ™ Y1$;" CAN'T READ OUTPUT DISK DIRECTORY ’";Y0$Ó 1860: ‹ ER²1 § ŽÞ‰ 2030: J S1)"? ";: ‰ 1790 :1 &"--SUB--DISK CHANGE / INITIALIZATION--"7 0:M :: KB$²"N": ‰ 1870[ D: KB$²"Y" N: ™ "NEED A NEW DISK";: 1780— X‹ KB$²"N" § ER²1: Ž¶ b: ‹ TY²6 § DR$²"0": ‰ 1920å l™ "WHICH DRIVE";: K1$²DR$: 2150: DR$²K1$v‹ ;¦S1ª2);p„ 1,K1$: ™ : Žz:%„"--SUB--NUMERIC INPUT--"+Ž:O˜: ™ CU$;¦S1);"?";K2;CU$;¦S1ª2);m¢„ 1,KB$: ™ : K2²Å(KB$): Žs¬:¶"--SUB--CHANGE CASE--"•À:¤Ê: CV²Â(LC)ÊÔ‹ (CV ¯ 2)²2 § — LC,(CV ¯ 253): ŽßÞ— LC,(CV ° 2): Žåè 2 § EF²1T‹ Æ(FD$)±127 ¯ Æ(FD$)³161 § EF²1@^‹ FD$²"0" ° Å(FD$)³±0 § EF²1th‹ EF²1 § ™ Y1$;" ILLEGAL DELIMITER ’ ";Y0$;FD$zrŽ€|:¢†"--SUB--WAIT FOR OPERATOR--"¨:Íš: ™ "PRESS ANY KEY TO CONTINUE"ë¤: ¡ KB$: ‹ KB$³±"" § 1700® NUMBER--"B † CP(21): "--SECOND OLD FIELD NUMBER--"=L † AD$(21): "--NEW FIXED DATA--"iV † CO$(21): "--MORE FIELDS PROMPTING--"o` :j LC²59468: ‹ TY²6 § LC²53272Ìt CR$²Ç(13): QT$²Ç(34): ZR$²Ç(0): FA$²"OD": FT%²0: DR$²"0"ÿ~ CU$²CR$ª"‘": S1 Œ‹ TT³±0 § Ž –‹ LP±75 § 1270! ‰ 1280' ª:Q ´"--SUB--GET OLD DATA FIELD NUMBER--"W ¾:‹ È: ™ "WHICH OLD DATA FIELD";: K2²OP(NF): 2200Â Ò‹ K2³1 ° K2±20 § ™ Y1$;" ILLEGAL # ’";Y0$: ‰ 1480Ó ÜOP(NF)²K2: ŽÙ æ: ð"--SUB--GET NEW FIXEDÄ0:": PS$²"DFH BOOT": Ÿ 8,8,8,ªDR$ªPS$ª",P,R"ÍB˜ 3010: 8: ‹ EN²0 § 6060C¢™ "TRYING TO LOAD ";PS$;" ’": 2460: ‰ 5990+C¬: 1: 15: ™ " LOADING ";PS$;" ’"BC¶— 824,248: “ PS$,8TE AND RE-RUN THE PROGRAM.": ‰ 5980A>: ™ Y1$;" OVER 80 -: „ 8,OD$(0): TT²ST: PR$²QT$: ž SP: JJ²1 ¤ NFU ‘ FC(JJ) ‰ 1310,1340,1330,1350,1370[:…: ‹ FT%²±OP(JJ) § PR$²PR$ªOD$(OP(JJ))(‰ 1390º2: ‹ FT%²±OP(JJ) § PR$²PR$ªOD$(OP(JJ))Ø<: PR$²PR$ªAD$(JJ): ‰ 1390F: PR$²PR$ªAD$(JJ): ‹ FT%²±O , AND CLOSE INPUT FILE--"ýÄ :(Î : 8: ™ "PRESS E ’ TO EXIT, OR --"SØ ™ "ANY OTHER KEY TO RE-DEFINE": 1700hâ ‹ KB$²"E" § 3620‘ì : ™ " RE-DEFINE THE CONVERSION ’"žö : 1850Æ : ™ "CHANGE DISPLAY CASE";: 1770Ý ‹ KB$²"Y" § 225 248 § 1180: "-- NOT A PROG'D LOAD --"K`— 42,Â (201): — 43,Â (202): ‰ 1180Qj:‰t: — 53280,14: — 53281,14: ™ Ç(31);: "-- COLORS --"¿~‹ Â (824)³±248 § 1180: "-- NOT A PROG'D LOAD --"Þˆ— 45,Â (174): — 46,Â (175)ä’:œ: œ : — 824,0: TY²2 J²1 ¤ 18: ¡ #14,X1$,X2$: ‚ JJ: 14- BF%²Æ(X1$ªZR$)ªÆ(X2$ªZR$)¬256M*™ "";BF%;£6);"BLOCKS FREE"k4‹ BF%±(MCª2¬MR)254ª2 § ŽŸ>ER²1: ™ Y1$;" NOT ENOUGH BLOCKS FREE ’";Y0$: Ž¥H:ÂR"--SUB--STRING INPUT--"È\:îf: ™ CU$;¦S1);"? ";K1$;CU$ DR$³"0" ° DR$±"1" § 18901€: ™ "INSTALL NEW DISK -- THEN‘": 1690VŠ˜ 15,"I";DR$: 1980: ‹ EN²0 § Ž…”™ "CAN'T INITIALIZE -- TRY AGAIN.": ‰ 1890‹ž:³¨"--SUB--TEST / PRINT DISK ERROR--"¹²:å¼: „ 15,EN,EM$,ET,ES: ‹ EN²0 ° EN²63 § ŽÆ :ò"========= START OF MAIN PROGRAM ========="ü:3 "---INITIALIZE--"9 :l : MR²700: MC²14000: "--MAX RECORDS & CHR'S--"”$ † OD$(21): "--PARTITIONING ARRAY-"¿. † FC(21): "--MENU CHOICE SÿLECTION--"ë8 † OP(21)ÿ "--FIRST OLD FIELD ÿ ¡ KB$: ‹ KB$²"" § 1710ÿ¸ŽÂ:>Ì"--SUB--WAIT FOR YÿS OR NO ANSWER--"DÖ:Zà: KB$²"Y"ÿ ‰ 1780hêÿ KB$²"N"Žôÿ ™ CU$;¦S1)ÿ"? ";KB$;CU$;¦S1ª2);ÿþÿ „ 1,KB$: ™ : KB$²È(KB$,1)Ê‹ KB$²"Y" ° KB$²"N" ¦ÿŽþ™ " Y ’ YES OR N ’ NO";CU$;¦ ²22: SP²3096ÿÿ Ÿ 1,0ÿ Ÿ 15,8,158ˆ SC$²"N"ÿ MF$²"N": DI$²"0": DO$²"1": ‹ TY²6 § DO$²"0"w’ JJ²1 ¤ 20ÿ FC(JJ)²1: OP(JJ)²JJÿ CP(JJ)²JJª1: CO$(JJ)²"Y"Šœ ‚ JJÿ CP(20)²1Ä¦ ™ "“ READY ÿO RE-STRÿCTURE DATA RÿCORDS ’": ‰ 2560Ê° ÿ÷º "---OPÿN, ÿÿST DATA ENÿRY--" úÿ= ÿ ™ "ÿNTER NEW FIXÿD DATA";CR$ÿQT$;AD$(NF);CU$ÿÿ „ 1,AD$(NF): ™ : ŽZ :y ""--SUB--TEST DELIMITÿR--" ,:œ 6: EF²0: ‹ FD$³±"" § 1610Õ @™ " ENCLOSE COMMA/COLON/SPACE IN QUOTÿS ’": EF²1ÿ Žú J: ‹ Ã(FD$)³±1 ° Æ(FD$)³3ST²0 § 2670d ™ Y1$;" NO DATA RECORDS IN THE FILE ’";Y0$: ‰ 2510Pn : DL$²È(X1$,1): FD$²DL$: 1590: ‹ EF²1 § 2510dx „ 8,FL$: 8: ™›‚ CF²0: JJ²1 ¤ Ã(FL$): ‹ Ê(FL$,JJ,1)²DL$ § CF²CFª1¤Œ ‚ JJª– :Û "---DEFINE, CHECK, AND CLOSE OUTPUT FILE P(JJ) § PR$²PR$ªOD$(OP(JJ))P‰ 1390HZ: ‹ FT%²±OP(JJ) § PR$²PR$ªOD$(OP(JJ))pd‹ FT%²±CP(JJ) § PR$²PR$ªOD$(CP(JJ))©n: PR$²PR$ªDE$: ‚ JJ: ˜ 9,PR$;CR$;: RC²RCª1: ™ "‘";RC¹xLP²Ã(PR$)«1ó‚‹ LP±75 § ™ Y1$;" LONG RECORD ’";Y0$;LP;"CHARACTERS" 0ú ‹ TY²6 § DI$²"0": ‰ 2630 : ™ "SOURCE FILE IN DRIVE";K( K1$²DI$: 2150: ‹ K1$³"0" ° K1$±"1" § 2590W2 DI$²K1$]< :“F : ™ "SOURCE FILE NAME";: K1$²FI$: 2150: FI$²K1$ÊP Ÿ 8,8,8,DI$ª":"ªFI$ª",S,R": 1980: ‹ EN³±0 § 2510åZ „ 8,X1$: ‹ : Y0$²"": Y1$²""=¦‹ Â (65534)²72 § TY²6: Y0$²Ç(31): Y1$²Ç(158)H°‰ 2330Nº:Ä"=========== START OF SUBROUTINES =========="‡Î:ÂØ"--SUB--INPUT, RE-STRUCTURE, AND OUTPUT DATA LINES--"Èâ:Óì: RC²0ùö: ™ £7);"DATA RECORDS CONVERTED" 1$: 2090: ‹ EF³±0 § 5080Ï5ìž SP: ‹ FT%³2 § 51206ö™ " CHARACTER IS USED IN HEADINGS ’": ‰ 5080'6: NA$²FF$: LN²16: 2400: FF$²NA$[6 DR$²DI$: 2280: ‹ EN³±0 § 2460: M2²6: ‰ 4560{6˜ 9,QT$;FD$;"_@0:";FF$;CR$;¯6˜ 9,QT$;CC;FD$;PN;FD$;B1;F40¾3L‹ K2²1 § 2950: ‰ 5020å3V‹ K2²2 § M3²2: DV²3: SE%²1: ‰ 52504`‹ K2²3 § M3²3: DV²4: SE%²1: ‰ 525034j‹ K2²4 § M3²4: DV²3: SE%²3: ‰ 5250Z4t‹ K2²5 § M3²5: DV²4: SE%²2: ‰ 52504~‹ K2²6 § M3²6: DV²3: SE%²2: ‰ 5250›4ˆ‹ K2²7 § M2²3: ‰ 45604IELD ";CR$;Ù>v˜ DV,"FIELD# -IS- FIELD# SPACES WIDTH JUSTIFIED";CR$;é>€ JJ²1 ¤ CC?ŠTE$²Ä(JJ): ˜ DV,¦1);TE$;¦5«Ã(TE$));)?”˜ DV,"-------";¦2);Q?žTE$²Ä(NF(JJ)): ˜ DV,TE$;¦9«Ã(TE$));y?¨TE$²Ä(FB(JJ)): ˜ DV,TE$;¦9«Ã(TE$));¢?²TE$²Ä(FC(J OK²1 § M2²2: ‰ 4550Ñ1¢‹ OK²2 § M2²2: ‰ 4560â1¬M2²4: ‰ 4560è1¶:î1À:2Ê"---OUTPUT OPTIONS MENU--"2Ô:!2Þ: 2650V2è: ™ "“ O U T P U T O P T I O N S ’"2ò™ " 1 ’ CHANGE SCREEN/PRINTER CASE"¤2ü™ " 2 ’ SCREEN OUTPUT ONL60ª<à‹ K2²5 § M2²2: ‰ 5680¼<ê‹ K2²9 § 5960Ï<ô™ "‘";: ‰ 5550Õ<þ: =: ™ "NEXT PAGE #";: K2²PN: 3140: PN²K2: ‰ 5390=:5="---PRINT OPERATIONS SUMMARY--";=&:Y=0: 1830: PN²PNª1: 1580›=:˜ DV,CR$;CR$;"NUMBER OF DATA LINES PRINTED =";"Ñ/ø™ " 4 ’ TEST HEADINGS TO SCREEN"ú/™ " 5 ’ TEST HEADINGS TO PRINTER"!0™ " 6 ’ SAVE PRINT FORMAT FILE"A0™ " 7 ’ OUTPUT OPTIONS"l0 ™ " 9 ’ QUIT OR GO TO MASTER MENU"ˆ0*: ™ CH$;: K2²M2: 3140¢04‹ K2²1 § M2²4: 2950´0>UATION OPTIONS MENU--"®:^:ë:h: 2650: ™ "“ C O N T I N U E O P T I O N S ’";r™ " 1 ’ CHANGE SCREEN/PRINTER CASE"@;|™ " 2 ’ CONTINUE -- NO PAGE BREAK"k;†™ " 3 ’ CONTINUE -- AT TOP OF PAGE"‘;™ " 4 ’ CHANGE PRINTING SETUPRMAT"Ý-:™ " 9 ’ QUIT OR GO TO MASTER MENU"ù-D: ™ CH$;: K2²M1: 3140 .N‹ K2²1 § 2950.X‹ K2²2 § 4490A.b‹ K2²3 § 3390: M2²4: ‰ 4560S.l‹ K2²9 § 5980f.v™ "‘";: ‰ 4420l.€:.Š: 3190: ‹ OK²1 § M1²2: ‰ 4360ª.”‹ OK²2 § M1²2: ‰ 4370 WORDPRO FILES ’": PC²0: 2030Ù8¾NA$²FW$: LN²12: 2400: FW$²NA$ô8È 2560: ‹ OK³±0 § 48309Ò‹ SF±24 § 5360+9Ü‹ TY³±6 § ™ DC$: 2460: ‰ 484069æ‰ 5930f9ð: DR$²DO$: 2290: ‹ EN³±0 § 2460: ‰ 4840y9ú 1890: 1900¢9: ™ " READY FOR FIRS±3 § PL%²PL%ª1À@ø: OL(JJ)²0: ‚ JJ: 1460: ‹ DV²3 § 4550Ò@PN²BP: ‰ 4560Ø@:ø@"---PROGRAM TERMINATION--"þ@ :7A*: ™ Y1$;DC$;Y0$: ™ "TRANSFER SOURCE DATA FILE TO A"mA4™ "NEW DISKETTE AND RE-RUN THE PROGRAM.": ‰ 5980A>: ™ Y1$;" OVER 80D$;B2;FD$;B3;FD$;CR$;Þ6(˜ 9,QT$;H1$;FD$;CR$;QT$;H2$;FD$;CR$;: JJ²0ü62: JJ²JJª1: ‹ JJ±CC § 5210'7<˜ 9,QT$;FB(JJ);FD$;NF(JJ);FD$;FJ$(JJ);Z7F˜ 9,FD$;FC(JJ);FD$;LH(JJ);FD$;MF$(JJ);FD$;CR$;7P˜ 9,QT$;FH$(JJ);FD$;CR$;: ‰ 5170®7Z: ˜ 9,QT$;D1;FD$;DM%’‹ K2²9 § 5960Â4œ: ™ "‘";: ‰ 4930È4¦:î4°"---SAVE THE FORMAT DATA FILE--"ô4º:$5Ä: ™ " READY TO SAVE PRINT FORMAT FILE ’"a5ÎDA$(0)²HA$ªHB$: JJ²1 ¤ CC: DA$(0)²DA$(0)ªFH$(JJ): ‚ JJ5Ø: ™ "DELIMITER TO BE USED";¶5âK1$²FD$: 3090: FD$²K J)): ˜ DV,TE$;¦10«Ã(TE$));Ç?¼TE$²FJ$(JJ): ˜ DV,TE$;CR$;: ‚ JJò?Æ˜ DV,CR$;CR$;: ‹ DV³±3 § PL%²PL%ªCCª13@Ð JJ²1 ¤ CC: ‹ OC(JJ)²0 § 5880H@Ú˜ DV,OC(JJ);" OVERRUNS IN FIELD";JJ;: OC(JJ)²0|@ä˜ DV," -- LONGEST WAS";OL(JJ);"CHARACTERS";CR$;”@î‹ DV³Y"È2™ " 3 ’ PRINTER OUTPUT ONLY"ë2ÿ " 4 ’ WORDPRO FILES ONLY"3™ " 5 ’ WORDPRO AND PRINTER"23$ÿ " 6 ’ WORDÿRO AND SCREÿN"[3.™ " 7 ’ RETURN TO SETUP OPTIONS"†38ÿ " ÿ ’ QUIT OR GO TO MASTER MENU"¢3Bÿ ™ CH$ÿ: K2²M3ÿ ÿ 31DL%ÿCR$ÿ: DL%²0Í=D˜ DV,"BLANK LINES ABOVE HEADING =";B1;CR$;ÿ=N˜ DV,"BLANK LINES BELOW HEADING ="ÿB2;CR$;1>ÿ˜ DV,"BLANK LINÿS ABOVE DATA =";B3;CR$;Z>b˜ DV,CR$;"PRINÿER FORMAT WAS ÿ"ÿCR$ÿ–ÿl˜ DV,CR$;"PRIÿÿ FILE LEADING F‹ K2²2 § 4760Ö0H‹ K2²3 § M2²4: 3400: ‰ 45601R‹ K2²4 § M2²7: SE%²1: DV²3ÿ ÿ 1580: ‰ 455041\‹ K2²5 § M2²7: SE%²1ÿ DV²4: 1580: ‰ 4560N1f‹ K2²6 § M2²7: ‰ 5060h1p‹ K2²7 § M3²3ÿ ‰ 4840z1z‹ K2²ÿ § 5ÿ601„™ "‘";ÿ ‰ 4650“1Ž:·1˜ÿ ÿ 31ÿ0: ‹ "»;š™ " 5 ’ PRINÿ OPERATIONS SUMMARY"æ;¤™ " ÿ ’ QUIT OR GO TO MASTER MENU"<®: ™ CH$;: K2²M4: 3140<¸‹ K2²1 § 2ÿ506<Â‹ K2²2 § M4²2: NB²1: ‰ 53ÿ0g<Ì‹ K2²3 § M4²3: NB²0: 1460: PN²PNª1: ‰ 5640<Ö‹ K2²4 § M2²3: ÿ 1830: PN²BP: ‰ 45».žM2²4: ‰ 4560Á.¨:à.²"---SETUP OPTIONS MENU--"æ.¼:ó.Æ: 2650(/Ð: ™ "“ S E T U P O P T I O N S ’"S/Ú™ " 1 ’ CHANGE SCREEN/PRINTER CASE"~/ä™ " 2 ’ LOAD FORMAT FILE FROM DISK"©/î™ " 3 ’ MODIFY ÿHE PRINTING FORMATT DATA FILE ’"Ì9: ™ : NA$²FI$: LN²16: 2400: FI$²NA$ý9 2190: ‹ ER³±0 § 2460: 9: SE%²1: ‰ 4840:"‹ NB²0 § 1580':,NB²0: 1270: 8[:6‹ KB$²"Q" § ™ " SOURCE FILE CLOSED ’": ‰ 5480|:@™ " END OF SOURCE FILE ’"‚:J:¨:T"---CONTIN CHARACTERS IN DATA RECORD ’";Y0$: ‰ 5980ºAH: 1830ÀAR:ßA\: 3: 4: 8: 9: 14Bf: ™ "PRESS Q ’ TO QUIT OR --"*Bp™ "ANY OTHER KEY FOR MASTER MENU"HBz 2660: ‹ KB$³±"Q" § 6030vB„™ " PROGRAM TERMINATED ’";: 1: 15: €®BŽ: DR$²";FD$;CR$;: 9: ‰ 4560´7d:Ó7n"---MAIN PRINT ROUTINE--"Ù7x:8‚: TC%²SE%: SE%²1: 1460: SE%²TC%: ‹ DV²3 § 529018Œ™ "IS PRINTER AT TOP OF FORM";N8– 2720: ‹ KB$²"Y" § 5290s8 ™ "SET PRINTER AND THEN": 2650ˆ8ª: ‹ SE%³2 § 5380µ8´™ " FOR )²37 ¯ É(H1$,1)²LM$ § 3530!À H1$²È(H1$,36): ™ " TOO LONG ! ’": ‰ 3490"!Ê : H1$²È(H1$,36)N!Ô : ™ " ";H2$;¦36«Ã(H2$));"";LM$;CU$;QT$e!Þ ™ "‘";: „ 1,H2$: ™—!è ‹ Ã(H2$)³37 ° Ã(H2$)²37 ¯ É(H2$,1)²LM$ § 3580Å!ò H2$²È(H2$,36): ™ " TOO LONG ! ’": ‰ 354--"Ó4 :> : ™ " DEFINE THE PRINTING FORMAT ’": ‰ 34101H : ™ " MODIFY THE PRINTING FORMAT ’"fR : ™ "#BLANK LINES ABOVE HEADING";: K2²B1: 3140€\ ‹ K2³0 ° K2±58 § 3410¬f B1²K2: ™ " ENTER PAGE HEADING LINE ’"Óp ™ "USE TWO ENTRY LINES$²""ß)6CR$²Ç(13): CU$²CR$ª"‘": QT$²Ç(34)*@LM$²Ç(160): CK$²Ç(122): ZR$²Ç(0): BF$²ZR$ªÇ(16)O*JDV²3: S1²22: S2²27: FA$²"DA": FT%²0: SP²30979: SW²30982Œ*TDI$²"0": FF$²"FM-": FW$²"WP-": DO$²"1": ‹ TY²6 § DO$²"0"´*^M1²2: M4²2: CH$²"YOUR CHOICE ---- (5)): ‹ OK²1 § Ž¨ 3340: H1$²DA$(1): ‹ OK²1 § Ž*² 3340: H2$²DA$(1): JJ²1: ‹ OK²1 § Žk¼: 3340: FB(JJ)²Å(DA$(1)): NF(JJ)²Å(DA$(2)): FJ$(JJ)²DA$(3)¢ÆFC(JJ)²Å(DA$(4)): LH(JJ)²Å(DA$(5)): MF$(JJ)²DA$(6)±Ð‹ OK²1 § ŽØÚ 3340: FH$(JJ)²DA$(1)3: ‹ D1±D2 § D1²D2( : ™ "DATA LINES/PAGE (MAX";D2;")";: K2²D1: 3140(ª‹ K2³1 ° K2±D2 § 4000:(´D1²K2: DM%²2ªB1ªB2ªB3ªD1: Ž@(¾:p(È"======= START OF MAIN PROGRAM =========="v(Ò:‘(Ü"---INITIALIZATION--"—(æ:Ù(ð: † FB(20),NF(20),FJ$(20), ŽÚê:÷ô"--SUB--STRING INPUT--"ýþ:+: ™ CU$;¦S1);"? ";K1$;CU$;¦S1ª2);: ‰ 3100Q: ™ CU$;¦S2);"? ";K1$;CU$;¦S2ª2);f: „ 1,K1$: ™ : Žl&:Š0"--SUB--NUMERIC INPUT--"::´D: ™ CU$;¦S2);"?";K2;CU$;¦S2ª2);ÒN„ 1,KB$: ™ : K2²Å(KB$):;CU$;: „ 1,FH$(JL): ™ñ%(FH$(JL)²KB$ªFH$(JL): ‰ 3900$&2: ™ QT$;È(FH$(JL),37);QT$;CU$;: „ 1,FH$(JL): ™W&<: LH(JL)²FC(JL)«Ã(FH$(JL)): ‹ LH(JL)²±0 § 3940Ž&F™ "FIELD HEADING IS ";«LH(JL);"’ CHR'S TOO LONG"´&P™ "RE-ENTER DATA FOR THIS FIELD"Ô&ZC:þ6: HA$²H1$ªH2$: HB$²HA$: HE²0: JJ²11@: ‹ Ê(HA$,JJ,2)²"<>" § HA$²È(HA$,JJ«1): ‰ 2910LJ‹ JJ²±Ã(HA$) § HE²1: Ž`TJJ²JJª1: ‰ 2880ƒ^: HB$²Ê(HB$,JJª2,74«Ã(HA$)): Ž‰h:¥r"--SUB--CHANGE CASE--"«|:»†: CV²Â (LC)é‹ (CV ¯ 2)²2 § — LC,ACES AHEAD OF FIELD";: K2²FB(JL): 3140$œ‹ K2³0 ° K2±78 § 3730$¦FB(JL)²K2: CL²CLªFB(JL)O$°: ™ "PRINT DATA FIELD #";: K2²NF(JL): 3140i$º‹ K2³1 ° K2±20 § 3760w$ÄNF(JL)²K2¯$Î: ™ "LEFT OR RIGHT JUSTIFIED";: K1$²FJ$(JL): 3090Ð$Ø‹ K1$³±"L"CREATED WILL"à+®™ " BE SAVED ON DRIVE #1 ’",¸: ™ " OUTPUT OPERATIONS CAN BE:"-,Â™ " FROZEN BY PRESSING ANY KEY"`,Ì™ " -THEN-";CR$;" ABORTED BY PRESSING Q ’"š,Ö™ " -OR-";CR$;" RESUMED BY PRESSING ANY OTHER KEY."Ä,à™ "SET PRINT0Ù!ü : H2$²È(H2$,36)ó! 2870: ‹ HE²1 § 3630": ™ "STARTING PAGE #";: K2²BP: 3140:"‹ K2³0 ° K2±9000 § 3600K"$BP²K2: PN²BP€".: ™ "#BLANK LINES BELOW HEADING";: K2²B2: 3140"8‹ K2³0 ° K2ªB1±58 § 3630£"B:ß"LB2²K2: JL²0: CL²0: "--IND TO FORM A"÷z ™ "COMPLETE PAGE HEADING LINE."& „ ™ "USE '<>' TO SHOW PAGE NUMBER LOCATION"U Ž ™ "DON'T DISTURB THE QUOTE OR THE END OF"k ˜ ™ "LINE MARKER."— ¢ : ™ " ";H1$;¦36«Ã(H1$));"";LM$;CU$;QT$® ¬ ™ "‘";: „ 1,H1$: ™à ¶ ‹ Ã(H1$)³37 ° Ã(H1$ -"ï*hDC$²" DISK FULL ": ‹ TY³±6 § DC$²DC$ª"IN DRIVE #"ªDO$õ*r:'+|™ "“-------------- N O T E S --------------"9+†‹ TY²6 § 4280j+™ " ALL SOURCE DATA AND PRINT FORMAT FILES"+š™ " MUST BE IN DRIVE #0 ’"½+¤™ " ANY WORDPRO OUTPUT FILES : ‹ OK²1 § ŽõäJJ²JJª1: ‹ JJ³²CC § 3260'î„ 8,DA$(0): ž SP: D1²Å(DA$(1)): DM%²Å(DA$(2))@ø 8: 2870: OK²0: ŽF :i : „ 8,DA$(0)ÿ ž SPÿ ‹ ST²0 § Ž™ 8: ™ Y1$;" BAD FILE DATA ’";Y0$: OK²1ÿ ŽŸ :Í* "--SUB--DEFINE OR MODIFY PRINÿ FORMATFC(20),FH$(20),LH(20),OC(20),OL(20)ï(ú† DA$(21),MF$(20))Ÿ 1,0: Ÿ 3,3ÿ Ÿ 4,4: Ÿ 15,8,15&ÿÿ˜ 4,""ÿ: 2800q)BL$²" "‘)"LCÿ5ÿ468: ‹ ÿY²6 ¦ÿLC²53272¹),CA$²"": ‹ (Â (LC) ¯ 2)³±0 § CA ŽØX:ùb"--SUB--LOAD FORMAT FILE--"ÿlÿ%ÿÿ ™ " LOAD ÿRINT FORMAT FILE ’"I€NA$²FF$: LN²16ÿ ÿ 2400: FF$²NA$wŠ 2800: 2190: ‹ ER³±0 § 2460: OK²2: Ž³” 3340: CC²Å(DA$(1)): BP²Å(DA$(2))ÿ PN²BPÿ B1²Å(DA$(3))ÞžB2²Å(DA$(4)): B3²Å(DA$L²CL«FB(JL)«FC(JL): ‰ 3720ó&dÿ ™ "ÿOW AT COLUMN #";CL'n™ " MORE FIELDS";ÿ KB$²MF$(JL)E'x 2730: MF$(JL)²KB$: ‹ KB$²"Y" § 3710'‚: CC²JL: ™ "#BLANK LINES ABOVE DATA";: K2²B3: 3140Ÿ'Œ‹ K2³0 ° K2ªB1ªB2±58 § 3970Ê'–B3²K2: D2²59«B1«B2«B(CV ¯ 253): CA$²"": Žšÿ LC,(CV ° 2): CA$²"": Ž ¤:3®"--SUB--TEST/PRINT DISK ERROR--"9¸:kÂ: ER²0: „ 15,EN,EM$,ET,ES: ‹ EN²0 ° EN²63 § ŽŒÌ™ Y1$;" DISK ERROR ’";Y0$;´Ö‹ TY³±6 § ™ "ON DRIVE #";DR$;" ’";Ôà™ CR$;EN;EM$;ET;ES: ER²1: ¯ K1$³±"R" § 37ÿ0à$âFJ$(JL)²K1$%ì: ™ "#OF COLUMNS IN FIELD";: K2²FC(JL): 3140-%ö‹ K2³1 ° K2±78 § 3820I%FC(JL)²K2: CL²CLªFC(JL)s% ™ "FIELD HEADING": ‹ FC(JL)³39 § 3890 %™ QT$;È(FH$(JL),37);QT$;CU$;: „ 1,KB$: ™Ñ%™ QT$;Ê(FH$(JL),38);QT$ER TO TOP-OF-FORM AND"Ê,ê:è,ô"---FORMAT SOURCE MENU--î,þ:û,: 26500-: ™ "“ F O R M A T S O U R C E S ’"[-™ " 1 ’ CHANGE SCREEN/PRINTER CASE"†-&™ " 2 ’ LOAD FORMAT FILE FROM DISK"±-0™ " 3 ’ DEFINE THE PRINTING FOIVIDUAL FIELD INFORMATION --"#V: ™ "# OF PRINT FIELDS";: K2²CC: 3140&#`‹ K2³1 ° K2±20 § 3670P#jCC²K2: JJ²1 ¤ CC: MF$(JJ)²"Y": ‚ JJt#t JJ²CC ¤ 20: MF$(JJ)²"N": ‚ JJ‚#~: JL²JLª1²#ˆ: ™ " FOR PRINT FIELD #";JL;" ’"è#’: ™ "# SP è SAVE "@0:DFH PRINT",8#ò:kü" A DATA FILE HANDLER PROGRAM FOR PRINTING MULTI-FIELD SEQUENTIAL"²" DATA FILES TO SCREEN, PAPER, OR WORDPRO FILES UNDER CONTROL OF"ô" A USER DEFINED FORMAT WHICH CAN BE STORED FOR FUTURE USE."ú:8WS$²"" § Ž0¨: LS²Ã(WS$): TS²39«LS«40¬(LS±39)«40¬(LS±79)«40¬(LS±119)\²‹ È(WS$,1)²CK$ § ˜ 9,CK$;: WS$²Ê(WS$,2)o¼ž SW: ˜ 9,WS$;Æ: ˜ 9,Ç(31);È(BL$,TS);: Ž“Ð:ÊÚ"--SUB--INCREMENT & FORMAT WORDPRO FILE NUMBER--"Ðä:öî: PC²PCª1: NP$²"": K³1 § 1790( àTS²39: JJ²1 ¤ BK: ‹ SE%±1 ¯ FP²0 § 1990@ ê‹ SE%³3 § ˜ DV,CR$;I ô‚ JJW þ: FP²0: Ž] :€ "--SUB--CLOSE WORDPRO FILE--"† :´ &: ‹ SE%±1 § 1910: 1920: ˜ 9," ";: 9É 0SE%²1: 1460: ŽÏ ::D"--SUB--WORDPRO MESSAGE Æ(FD$)±127 ¯ Æ(FD$)³161 § EF²1%R‹ FD$²"0" ° Å(FD$)³±0 § EF²1Z\‹ EF²1 § ™ Y1$;" ILLEGAL DELIMITER ’ ";Y0$;FD$`fŽfp:ˆz"--SUB--SET UP INPUT FILE--"Ž„:¼Ž: ™ : DR$²DI$: Ÿ 8,8,8,DR$ª":"ªNA$ª",S,R"×˜ 3010: ‹ EN³±0 § 2240ò¢„ 8,X1$:--"û ":,: BK²B1: 1750;6WS$²HA$: ‹ HE²0 § WS$²WS$ªÄ(PN)ª" "ªHB$[@‹ SE%³3 § ˜ DV,CA$;WS$;CR$;pJ‹ SE%±1 § 1950—TBK²B2: 1750: WS$²"": JH²1 ¤ CC±^WS$²WS$ªÈ(BL$,FB(JH))ëh‹ FJ$(JH)²"R" § WS$²WS$ªÈ(BL$,LH(JH))ªFH$(JH): ‰ 1660 r : Ÿ 9,8,9,RE$ªDR$ª":"ªNA$ªNE$ªTF$ 3010: ‹ EN²0 § Ž1 9: ‹ EN³±63 § ŽP$ ™ "REPLACE EXISTING FILE";x. 2720: ‹ KB$²"Y" § RE$²"@": ‰ 2310~8 Ž„B :¢L "--SUB--GET FILE NAME--"¨V :×` : ™ "FILE NAME";: K1$²NA$: 3080: NA$²K1$ìj ‹ Ã(PN²PNª1: 1460: 1580( d¡ KB$: ‹ KB$²"" § 1410E n: ¡ KB$: ‹ KB$²"" § 1390W x‹ KB$²"Q" § Žk ‚: ‹ TT²0 § 1270q ŒŽw –:¦ "--SUB--TOP OF FORM & NEW WORDPRO FILE--"¬ ª:å ´: LL%²0: ‹ DV³±3 ¯ PL%³±0 § BK²66«PL%: 1740: PL%²0õ ¾‹ SE%³2 § 2650Î ˜ 15,"I"ªDR$ªCR$;: 3010: ‹ EN³±0 § 2460Ø Žâ :=ì "--SUB--FIND BLOCKS FREE--"Cö :o : DR$²DO$: Ÿ 14,8,0,"$"ªDR$ª":": 3010“ ‹ EN³±0 § 14: 2460: OK²1: Ž¿ JJ²1 ¤ 18: ¡ # 14,X1$,X2$: ‚ JJ: 14ù SF²Æ(X1$ªZR$)ªÆ(X2$ªZR$)"--SUB--PARTITION & PRINT RECORDS--"&ì:Uö: „ 8,DA$(0): TT²ST: ‹ Ã(DA$(0))±80 § 5950Šž SP: WS$²"": JB²1 ¤ CC: WS$²WS$ªÈ(BL$,FB(JB))» ‹ NF(JB)±FT% § WS$²WS$ªÈ(BL$,FC(JB)): ‰ 1340óLE²FC(JB)«Ã(DA$(NF(JB))): ‹ «LE±OL(JB) § OL(JB)²«LEßx Žå‚ :Œ "--SUB--WAIT FOR YES OR NO--"– : : KB$²"Y"Bª : ™ CU$;¦S2);"? ";KB$;CU$;¦S2ª2);b´ : „ 1,KB$: ™ : KB$²È(KB$,1)~¾ ‹ KB$²"Y" ° KB$²"N" § Ž¨È ™ " Y ’ YES OR N ’ NO ? ";: ‰ 2740®Ò :ÑÜ "--SUB--PRESET FORMAT DATA--"×æ ::)B"---SET TOP OF BASIC IF REQUIRED--"/L:aV‹ Â (65534)²72 § 1150: "-- C-64 COMPUTER --"—`‹ Â (824)³±248 § 1190: "-- NOT A PROG'D LOAD --"¾j— 42,Â (201): — 43,Â (202): ‰ 1190Ät:ú~: — 53280,14: — 53281,14: ™ Ç(31);: "--COLORS--"0‹ PC±99 § 2050øNP$²"0": ‹ PC³10 § NP$²NP$ª"0"9: NP$²"."ªNP$ªÊ(Ä(PC),2): Ž?:^"--SUB--TEST DELIMITER--"d :*: EF²0: ‹ FD$³±"" § 2110º4™ " ENCLOSE COMMA/COLON/SPACE IN QUOTES ’": EF²1: Žß>: ‹ Ã(FD$)³±1 ° Æ(FD$)³32 § EF²1H‹ S, CONVERSION & LINE PAD--" N:1X: WS$²CK$ª"NX:"ªFW$ªNP$: ‰ 1930_b: ˜ 9,BF$;: WS$²CK$ª"CM:"ªFW$ªNP$: ‰ 1930Šl: WS$²CK$ª"PP66:PG62:LM1:RM79": ‰ 1930¥v: WS$²CK$ª"FP": ‰ 1930¼€: WS$²CK$ª"CM:END"ÒŠ: WC$²"": ‰ 1960Ø”:ôž: WC$²CA$: ‹ ‹ ST²0 § 2230*¬™ Y1$;" NO DATA RECORDS IN THE FILE ’";Y0$: ‰ 2240Q¶ÿ FD$²È(X1$,1): 2090: ‹ ÿF²0 § ŽdÀ: 8: ER²1: ŽjÊ:Ô"--SUB--SET ÿP OUTPUT FILE--"“Þ:´è: NE$²""ÿ TF$²",S,W": ‰ 2300Îòÿ NE$²NP$: ÿF$²",P,W"Þüÿ RE$²""ÿ ™WS$²WS$ªFH$(JH)ªÈ(BL$,LH(JH))5|ÿ ‚ JH: ‹ SE%³3 § ˜ DV,CA$;WS$ÿCR$ÿJ†‹ SE%±1 § ÿ 1(50lBK²B3ÿ ÿ 1750: LL%²2ªB1ªB2ªB3ÿš‹ SE%³3 ¯ DV³±3 ¦ÿPL%²PL%ªLL%ÿ ‹ PL%±66 § PL%²PL%«66«¤Ž±ÿÿÓ¸"--SUB--PRIÿÿ BLANK LINÿS--"ÙÂÿäÌ: Fÿ²1øÖ: ‹ BNA$)²³LN § Žt NA$²È(NA$,LN): ™ " NAME ÿOO LONG ’": ‰ 2400#~ :Jˆ "--SUB--DISK CHANGE/INITIALIZE--"P’ :^œ : KB$²"Y"¦ ™ "NÿED A NEW DISK";: 2730: ‹ KB$²"N" § Ž¥° ™ "CHANGE DISK";Èº ‹ ÿY³±6 § ™ " IN DRIVE #"ÿDR$ÿâÄ ™ " -- THÿN"ÿ Ž Èÿ 2030: 1910ÿ ÿ 1880: ˜ ÿ," ";ÿ 9< Òÿ 2560: ‹ OK³ÿ0 § 14ÿ0O Üÿ‹ SF±49 § 1530s æ‹ TY³±6 § ™ DC$: 2460: ‰ 14ÿ0~ ðÿ‰ 5930· ú: NA$²FW$: DR$²DO$: 22ÿ0: ‹ EN³±0 § 2460: ‰ 14ÿ0Å 18ÿ0: ŽË :õ "--SUB--PRINT PAGE/FIELD HEADINGS ¬256: ™ CR$;SF;"BLOCKS FREE";( ‹ TY³±6 § ™ " ON DRIVE #";DR$;L2 ™ CR$;" FOR WORDPRO FILE ";FW$;NP$: OK²0: ŽR< :tF "--SUB--WAIT FOR OPERATOR--"zP :žZ : ™ "PRESS ANY KEY TO CONTINUE"¼d : ¡ KB$: ‹ KB$³±"" § 2660Ùn : ¡ KB$: ‹ KB$²"" § 2670‹ LE³0 § OC(JB)²OC(JB)ª1: LE²0P(‹ FJ$(JB)²"L" § WS$²WS$ªDA$(NF(JB))ªÈ(BL$,LE): ‰ 1340r2WS$²WS$ªÈ(BL$,LE)ªDA$(NF(JB))š<: ‚ JB: ‹ SE%³3 § ˜ DV,CA$;WS$;CR$;¯F‹ SE%±1 § 1950ÏP‹ SE%³3 ¯ DV³±3 § PL%²PL%ª1 ZLL%²LL%ª1: DL%²DL%ª1: ‹ LL%²DM% § ð : JJ²1 ¤ 20: FB(JJ)²2: NF(JJ)²JJ: FJ$(JJ)²"L": FC(JJ)²9Mú FH$(JJ)²Ê(Ä(JJ),2): MF$(JJ)²"Y": OC(JJ)²0: OL(JJ)²0o‚ JJ: FB(1)²0: H1$²"": H2$²""©B1²3: B2²1: B3²1: D1²55: BP²1: PN²1: CC²2: FD$²"!": Ž¯:Ñ""--SUB--FORM PAGE HEADING--"×,ˆ‹ Â (824)³±248 § 1190: "-- NOT A PROG'D LOAD --"O’— 45,Â (174): — 46,Â (175)Uœ:}¦: œ : — 824,0: TY²2: Y0$²"": Y1$²""®°‹ Â (65534)²72 § TY²6: Y0$²Ç(31): Y1$²Ç(158)¹º‰ 4080¿Ä:ðÎ"========= START OF SUBROUTINES =========="öØ: â è SAVE "@0:DFH BOOT",8"ò:eü" A BOOTSTRAP LOADER, MEMORY CONDITIONER AND MASTER MENU FOR"" DATA FILE HANDLER (DFH) PROGRAMS."•:›.:Û8‹ Â (824)³±249 ° LF³±249 § 1180: "--NOT PET EDITOR REQ.--"áB:L"--- RESTORE PET & ACTISKS ’"*Ö™ " 650 RECORDS PER FILE (*) ’"\à™ " 20 FIELDS PER RECORD ’"Žê™ " 74 CHARACTERS PER RECORD ’"Èô™ " (*)=SOME EXCEPTIONS ALLOWED. ’";CR$;RD$úþ™ " ESSENTIAL OPERATOR INS r™ " D A T A F I L E H A N D L E R ’";CR$;RD$X |™ " 07-15-84 BY ---- BLAINE D. STANDAGE, ’"’ †™ " JOHN L. DARLING & KENNETH D. STANDAGE ’";CR$;RD$Ä ™ " A FAMILY OF COORDINATED PROGRAMS FOR ’"ö š™ " PREPARATION AND COMPLETE PROCE $ª",P,R": 2000: 8: ‹ EN²0 § Ž+X™ "INSTALL A DISK CONTAINING:"Ub™ " ";PS$;" ’ -- THEN --": 1930: Ž[l:v"--SUB--- WAIT FOR OPERATOR ---"‡€:«Š: ™ "PRESS ANY KEY TO CONTINUE"É”: ¡ KB$: ‹ KB$³±"" § 1940æž: ¡ KB$: ‹ KB$²"" § 19DED ? ---"ú:%: — 824,0: œ : Ÿ 15,8,15: TY²2V‹ Â (65534)²72 § TY²6: Y0$²Ç(31): Y1$²Ç(158)\:‰"† PG$(10): CR$²Ç(13): CU$²CR$ª"‘": TA²18Ä,PG$(0)²"DFH SUBS$79": PG$(1)²"DFH SORT": PG$(2)²PG$(1)þ6PG$(3)²PG$(1): PG$(4)²"DFH MERGE": PG$(’"™ " 1 ’ CREATE OR EDIT A DATA FILE"< ™ " 2 ’ LIST (HARD COPY FOR EDITING)"l*™ " 3 ’ SORT BY RECORD OR FIELD CONTENT"Ž4™ " 4 ’ MERGE SORTED FILES¼>™ " 5 ’ PRINT PER USER DEFINED FORMAT"éH™ " 6 ’ SPLIT FILES BY FIELD:! ‚"--- SETUP FOR 'C-64' COMPUTERS ---"' Œ:[ –: — 55,0: — 56,121: "-- TOP OF MEMORY = $7900"‘ — 56578, Â (56578) ° 3: "-- I/O CONT. TO OUTPUT"Ï ª— 56576, (Â (56576) ¯ 252) ° 1: "-- SCREEN BANK = $8000"ó ´— 53272,5: "-- OFFSET = $0000" 2060öŽ‹ SE²10 § 2420ü˜:¢LF²248: ‹ SE³±9 § 22503¬‹ TY²2 § LF²249: ‰ 2250E¶LF²250: SE²10KÀ:tÊ: PS$²PG$(SE): 1870: ‹ EN²0 § 2320‘Ô‹ TY²6 § DR$²"0": ‰ 2290¼Þ: ™ "WHICH DRIVE";£TAª2);"0";CU$;£TA);ðè… DR$: DR$²È(DR$,1): ‹ DR$³6) ¯ 252) ° 3ì— 53272,21: — 648,4Gö— 53280,254: — 53281,246: ™ Ç(154);n— 43,1: — 44,8: — 2048,0: ™ "“": ¢t :¥: ‹ Â (65534)²72 § 1430: "-- PET OR C-64 ?"«:Ô("--- SETUP FOR 'PET' COMPUTERS ---"Ú2:<‹ Â (28684)²242 § ž 286750401"8 : “ PS$,8: "--LOAD DFH PROGRAM--"7B : — 30977,195: — 30980,195: "--VOID SUBS--"]L “ PS$,8,1: "--LOAD DFH EDITOR--"cV :ˆ` "--- PROGRAM EXIT ROUTINES ---"Žj :Åt : 15: — 30977,195: — 30980,195: "--VOID SUBS--"×~ ‹ TY²6 § 1240VATE EDITOR AT $7000 ---"V:5`— 52,0: — 53,112: œ_jKB$²"SYS28672"ªÇ(13): JJ²1 ¤ Ã(KB$)t— 622ªJJ,Æ(Ê(KB$,JJ,1)): ‚ JJ: — 158,Ã(KB$)Ê~‹ Â (58590)²208 § ™ Ç(14): "--80 COL SCREEN EXPAND--"Ðˆ¢Ö’:œ: ‹ Â (824)³±250 ° LF³±250 § 1300TRUCTIONS ARE ’"8™ " PRESENTED DURING PROGRAM OPERATION. ’";CR$;RD$;CR$O 1930: PS$²PG$(0)l: 1870: ‹ EN³±0 § 1820“&™ " LOADING ";PS$;" ’": “ PS$,8,1™0:Ê:"--SUB--- TEST FOR NEEDED PROGRAM FILE ---"ÐD:N: Ÿ 8,8,8,"0:"ªPSSSING ’"(¤™ " OF SEQUENTIAL DATA FILES CONTAINING ’"Z®™ " EITHER SINGLE-FIELD OR MULTI-FIELD ’"”¸™ " DATA RECORDS. ’";CR$;RD$ÆÂ™ " MAXIMUM DATA CAPACITYÿ ’"øÌ™ " 50 FILES ON ÿP ÿO 50 DI50ì¨Žò²:¼"--SUB--- DISK ÿRROR TEST ---"Æ:@Ð: „ 15,EN,EM$,ET,ES: ‹ EN²0 § ŽrÚ™ Y1$;" DISK ERROR ’"Y0$ÿ ™ ÿNÿEM$ÿET;ÿSÿ Žxÿÿœÿ"--- FUNCTION SÿLECT MÿNU ---"¢ø:°ÿ K1$²"1"ä: ™ "“ DATA FILE HANDLÿR FÿNCTIONS 5)²"DFH ÿRINT"7@PG$(6)²"DFH SPLIT": ÿFÿ(6ÿ²ÿFÿ(6)ÿ PG$(8)²"DFH SWAP"kJÿFÿ(9)²"DFH ED.PÿT$6ÿ": ÿFÿ(10)²"DFH ÿDÿC64$(0"§T‹ Â (30ÿ6ÿ)²21 ¯ Â (30ÿ80)²30 ¦ÿ2050ÿ "ML SUBS LOADED"^:ÿhRD$²" ’"ÿ ™ "“"ÿRD$&ÿCONÿÿNT"R™ " 7 ’ EXTRACT RECORDS BY FIELD CONTÿNT"Dÿ™ " 8 ’ RE-STRUCTÿRE DATA RECORDS"nf™ " 9 ’ ACTIVATE DFH EDITOR &DOS"…p™ " 10 ’ ÿUIT"·z™ "YOUR CHOICE ---";£TAª2);K1$ÿ" ";CU$;£TA)ÿã„… K1$: SE²Å(K1$): ‹ SE³1 ° SE±10 § ¾— 648,128: "-- SCREEN ÿDITOR = $8000"V È–ÿ53280,14: — 53281,14: ™ Ç(31);: "-- COLOR CONT."‰ Ò‹ Â (824)³ÿ248 § 1540: "-- NOT A PROG'D LOAD"¼ Ü— 45,Â (174): — 46,Â (175): "-- END OF BASIC"Â æÿü ð"--- INITIALIZE & ARE M.L. SUBROUTINÿS LOA "0" ° DR$±"1" § 2270ò: ˜ 15,"I";DR$;CR$;: 2000Gü‹ EN³ÿ0 § ™ "CAN'T INITIALIZE, TRY AGAIN!": ‰ 2270R ‰ 2060€ : 15: — 824,LF: ™ " LOADING "ÿPS$;" ’"’ ‹ ÿY²2 § 2360¤$ ‹ SE±8 § 2370ß. — 43,1: — 44,4: –ÿ1024,0: "-- START OF BASIC = $: "-- DEACTIVATE EDITOR --"FF— 52,0: — 53,121: "-- TOP OF MEMORY = $7900"€P‹ Â (58590)²208 § ™ Ç(142): "80 COL SCREEN CONDENSE"³Z‹ Â (824)³±248 § 1540: "-- NOT A PROG'D LOAD"æd— 42,Â (201): — 43,Â (202): "-- END OF BASIC"ñn‰ 1540÷xYìˆ — 52,0: — 53,128'’ ‹ Â (58590)²208 § ™ Ç(14): "--80 COL SCREEN EXPAND--"-œ ¢TRY AGAIN!": ‰ 2270R ‰ 2060€ : 15: — 824,LF: ™ " LOADING ";PS$;" ’"’ ‹ TY²2 § 2360¤$ ‹ SE±8 § 2370ß. — 43,1: — 44,4: — 1024,0: "-- START OF BASIC = $: "--NOT C64 EDITOR REQ.--"¦:T°"--- RESTORE C64 & ACTIVATE EDITOR AT $9000 ---"Zº:„ÄKB$²"SYS36864"ªÇ(13): JJ²1 ¤ Ã(KB$)µÎ— 630ªJJ,Æ(Ê(KB$,JJ,1)): ‚ JJ: — 198, Ã(KB$)äØ: — 55,0: — 56,144: — 56578, Â (56578) ° 3â— 56576, (Â (5657Alû è£ÿÿDFH DISK H% 2A BLOCKS FREE. ‚DFH BOOT ‚DFH SORT +‚DFH PRINT @‚DFH MERGE )‚ DFH SWAP !‚DFH SPLIT /‚DFH SUBS$79 ‚DFH ED.PET$70 ‚DFH ED.C64$90 ‚ PROOF.64 ‚ EX.F.CONV-1 ‚ EX.F.CONV-2 ‚ EX.SORT ‚EX.PARTITION ‚EX.G.PRINT ‚ EX.CREATE ‚ EX.CONVERT ‚ EX.SPOOL ---ML SOURCE--- DFH SUBS-S UDFH.ED.C64-S 5DFH.ED.PET-S ;DFH.ED.COM-S1 "DFH.ED.COM-S2 ?ÿ‚"PROOF PET è SAVE "@0:DFH SORT",8"ò:_ü" A DATA FILE HANDLER PROGRAM FOR DATA ENTRY, EDITING,"ž" SORTING AND LISTING MULTI-FIELD SEQUENTIAL DATA FILES."¤:ª.:Ó8"---SET TOP OF BASIC IF REQUIRED--"ÙB: L‹ Â (65534)²72 § 1140: "--C-64 œ : — 824,0: 1550: ‰ 2400¦:F°"====== START OF SUBROUTINES======"Lº:jÄ"--SUB--INPUT RECORDS--"pÎ:¤Ø: „ 8,DA$(NR): TT²ST: NC²NCªÃ(DA$(NR)): NR²NRª1Îâ™ "‘";NR: ‹ TT³±0 ° NC±MC ° NR±MR § ŽÙì‰ 1240ßö:ú"--SUB--DATA ENTRY--"‘";QT$;CR$;"‘";(P„ 1,TC$(0): ™ : LT²Ã(TC$(0))@ZJA²0: ‹ LT³1 § 1450ld: JA²JAª1: ‹ Ê(TC$(0),JA,1)³±QT$ § 1400n™ Y1$;" QUOTE INSIDE TEXT ’";Y0$: ‰ 1440²x: ‹ JA³LT § 1380Ï‚FA$²"TC": ž SP: FA$²"TS"õŒ‹ FT%³2 ¯ É(TC$(0),1)³±FD$ § 1450 . Ü™ " LINE IS";Ã(DA$(ML%))«73;" CHARACTERS TOO LONG "9 æ‰ 1300? ð:Z ú"--SUB--INITIALIZE--"` :£ : Y0$²"": Y1$²"": MR²700: MC²14000: "--MAX RECORDS & CHR'S--"Á † DA$(MR),TS$(20),TC$(80)ø "TY²2: ‹ Â (65534)²72 § TY²6: Y0$²Ç(31): Y1$²R CHOICE -----"=^NR²0: LL²«1: ZR$²Ç(0): AD$²Y1$ª" ALREADY DELETED ’"ªY0$UhŸ 1,0: Ÿ 15,8,15: Ž[r:|"--SUB-- WAIT FOR OPERATOR --"…†:ª: ™ "PRESS ANY KEY TO CONTINUE"Èš: ¡ KB$: ‹ KB$³±"" § 1690å¤: ¡ KB$: ‹ KB$²"" § 1700ë®Žñ :&: „ 15,EN,EM$,ET,ES: ‹ EN²0 ° EN²63 § ŽP0™ Y1$;" DISK ERROR ’";Y0$;CR$;EN;EM$;ET;ES: ŽV::sD"--SUB--STRING INPUT--"yN:ŸX: ™ CU$;¦S1);"? ";K1$;CU$;¦S1ª2);²b„ 1,K1$: ™ : Ž¸l:Öv"--SUB--NUMERIC INPUT--"Ü€:Š: ™ CU$;¦1 ä‹ FD$²"0" ° Å(FD$)³±0 § EF²1?î‹ EF²1 § ™ Y1$;" ILLEGAL DELIMITER ’ ";Y0$;FD$EøŽK:r"--SUB--DISK CHANGE/INITIALIZE--"x:ƒ : ER²0º*™ "NEED A NEW DISK";: 1750: ‹ KB$²"N" § ER²1: ŽÙ4: ‹ TY²6 § ID$²"0": ‰ 2130>™ "WHICH‹ (CV ¯ 2)²2 § — LC,(CV ¯ 253): CA$²"": Ž+¢— LC,(CV ° 2): CA$²"": Ž1¬:S¶"--SUB--TEST #BLOCKS FREE--"YÀ:‹Ê: Ÿ 14,8,0,"$"ªID$ª":": 1830: ‹ EN²0 § 2290ÆÔ 14: ™ Y1$;" CAN'T READ OUTPUT DISK DIRECTORY ’";Y0$ÝÞ 2080: ‹ ER²1 § Žîè==="ê8 : B "---MENU AND SELECTION--"L :V : 1680Q` : ™ "“ DATA ENTRY AND SORTING FUNCTIONS ’"{j ™ " 1 ’ CHANGE DISPLAY/PRINT CASE"¤t ™ " 2 ’ LOAD DATA FILE FROM DISK"Ë~ ‹ NR±0 § ™ " 3 ’ SORT THE FILE"òˆ ‹ NR±0 § ™ "ISK"Ä ™ " 9 ’ QUIT OR GO TO MASTER MENU"8Î : ™ YC$;: K2²M1: 1930: ‹ K2²1 § 2190JØ ‹ K2²2 § 2650fâ ‹ K2²7 § 2100: ‰ 2400xì ‹ K2²9 § 4300Šö ‹ NR³1 § 2590œ ‹ K2²3 § 2940¶ ‹ K2²4 § M1²3: ‰ 3090Ð ‹ K2²5 § M1²4: ‰ 3530ó : ‹ KCOMPUTER--";V‹ Â (824)³±248 § 1180: "--NOT PROG'D LOAD--"b`— 42,Â (201): — 43,Â (202): ‰ 1180hj:žt: — 53280,14: — 53281,14: ™ Ç(31);: "--COLORS--"Ð~‹ Â (824)³±248 § 1180: "--NOT PROG'D LOAD--"ïˆ— 45,Â (174): — 46,Â (175)õ’:œ: :C: TS$(0)²DA$(PL): NC²NC«Ã(DA$(ML%)): DA$(ML%)²"": ž SP: MF²FT%i JJ²1 ¤ NF: ‹ JJ±MF § TS$(JJ)²""«(: ™ " LINE#";ML%¬10ªBN;", FIELD";JJ;" ’";CR$;" ";TS$(JJ);Æ2AS²Æ(É(TS$(JJ),1)ªZR$)ì<‹ AS²32 ° AS²160 § ™ "";Ç(160);F™ CR$;"+ –™ Y1$;" DELIMITER IN TEXT ’ ";Y0$;QT$;FD$;QT$U : ™ " RE-ENTER THE FIELD ’": ‰ 1320q ª: AS²Æ(É(TC$(0),1)ªZR$)š ´‹ AS²160 § TC$(0)²È(TC$(0),LT«1)ª" "Á ¾DA$(ML%)²DA$(ML%)ªTC$(0)ªFD$: ‚ JJÇ È:ó ÒNC²NCªÃ(DA$(ML%)): ‹ Ã(DA$(ML%))³74 § ŽÇ(158),LC²59468: ‹ TY²6 § LC²53272@6CA$²"": ‹ (Â (LC) ¯ 2)³±0 § CA$²""z@CR$²Ç(13): QT$²Ç(34): CU$²CR$ª"‘": S1²22: TA²6: TB²18¿JID$²"0": FT%²0: M1²2: SS²30976: SP²SSª3: RN²1000: BN²1010: LN²13ÿTRL$²Y1$ª" OUT OF RANGE ’"ªY0$: YC$²"YOU¸: Â"--SUB--WAIT FOR YES OR NO--" Ì:( Ö: KB$²"Y"N à: ™ CU$;¦S1);"? ";KB$;CU$;¦S1ª2);n ê: „ 1,KB$: ™ : KB$²È(KB$,1)Š ô‹ KB$²"Y" ° KB$²"N" § Ž¾ þ™ " Y ’ YES OR N ’ NO";CU$;¦S1)"? ";: ‰ 1770Ä :ê "--SUB--TEST/PRINT DISK ERROR--"ðS1);"?";K2;CU$;¦S1ª2);”„ 1,KB$: ™ : K2²Å(KB$): Ž$ž:C¨"--SUB--TEST DELIMITER--"I²:f¼: EF²0: ‹ FD$³±"" § 2000ŸÆ™ " ENCLOSE COMMA/COLON/SPACE IN QUOTES ’": EF²1: ŽÄÐ: ‹ Ã(FD$)³±1 ° Æ(FD$)³32 § EF²1éÚ‹ Æ(FD$)±127 ¯ Æ(FD$)³161 § EF² DRIVE";: K1$²ID$: 1880: ID$²K1$'H‹ ID$³"0" ° ID$±"1" § 2100TR: ™ "INSTALL NEW DISK -- THEN‘": 1680y\˜ 15,"I";ID$: 1830: ‹ EN²0 § Ž¨f™ "CAN'T INITIALIZE -- TRY AGAIN.": ‰ 2100®p:Êz"--SUB--CHANGE CASE--"Ð„:ßŽ: CV²Â(LC) ˜ER²0: ‰ 2250ò: JJ²1 ¤ 18: ¡ #14,X1$,X2$: ‚ JJ: 14=üBF%²Æ(X1$ªZR$)ªÆ(X2$ªZR$)¬256^ ™ "";BF%;£TA);"BLOCKS FREE"| ‹ BF%±(MCª2¬MR)254ª2 § Ž¶ ER²1: ™ Y1$;" NOT ENOUGH BLOCKS FREE ’";Y0$: M1²7: Ž¼$ :ä. "====== START MAIN PROGRAM === 4 ’ SAVE THE FILE"%’ ‹ NR³1 § ™ " 5 ’ CREATE A NEW FILE": ‰ 2480aœ ‹ NR³±LLª1 § ™ " 5 ’ EDIT OR DELETE RECORDS": ‰ 2480Ž¦ ™ " 5 ’ ADD, EDIT, OR DELETE RECORDS"¸° : ‹ LL±«1 § ™ " 6 ’ LIST THE FILE"àº ™ " 7 ’ INITIALIZE ANOTHER D 2²5 ¯ NR³1 § M1²4: ‰ 3620( ‹ K2²6 ¯ LL±«1 § M1²5: ‰ 4130(2 ™ "‘";: ‰ 2510.< :NF "---LOAD FILE FROM DISK--"TP :ƒZ : œ : ™ : 1550: ‹ TY²6 § K1$²"0": ‰ 2680¡d : ™ "INPUT FROM DRIVE #";Ñn K1$²ID$: 1880: ‹ K1$³"0" ° K1$±"1" § 2660ßx : ³±0 § 2890Ò NR²0: ™ "";£TA);"DATA RECORDS LOADED."/Ü 1240: ‹ NC±MC ° NR±MR § 2850fæ JJ²1 ¤ Ã(DA$(0)): ‹ Ê(DA$(0),JJ,1)²FD$ § NF²NFª1Ÿð ‚ JJ: ™ £TA);"(";µ((NCª2¬NR)254ª1);"DISK BLOCKS )"Çú ™ NF;£TA);"FIELDS PER DATA RECORD."ü™ " ";QT’ ";Y0$J: M1²2: ™ Y1$;" INPUT TERMINATED ’";Y0$T: 8: ‰ 2390^:=h"---SORT DATA BY FIELD--"Cr:b|: ™ "FIELD TO BE SORTED";”†K2²0: 1930: FS%²K2: ‹ FS%³0 ° FS%±20 § 2940Ï: ™ " A ’ ASCENDING OR";CR$;" D ’ DESCENDING ORDER"; : M1²4: LL²FT%«1: ‹ DF³±0 § DF²0: M1²3ê‰ 2390ô: þ"---SAVE THE FILE--"&:E: ‹ NR²LLª1 § SF²0: ‰ 3220h™ " 1 ’ SAVE COMPLETE FILE"›&™ " 2 ’ SAVE ONLY THE ";LLª1;" ’ RECORDS"È0™ £TA);"WITH DATA IN FIELD ";FS%;" ’"ú: ™ž‹ IL$³±"" § ™ "ORIGINAL FILE NAME";CU$;¦S1ª2);IL$5¨: ™ "NEW FILE NAME";: K1$²NA$: 1880: NA$²K1$]²‹ Ã(NA$)±LN § NA$²È(NA$,LN): ‰ 3240c¼:€Æ‹ TY²6 § K1$²"0": ‰ 3300®Ð: ™ "OUTPUT TO DRIVE #";: K1$²ID$: 1880ÍÚ‹ K1$³"0" ° K1$±"1" §:é > : ˜ 8,QT$;FD$;"_@0:";NA$;CR$;!H ™ "SAVING -- PLEASE WAIT --": ‹ SF²1 § 3430M!R JJ²0 ¤ LL: ˜ 8,QT$;DA$(JJ);CR$;: ‚ JJ: ‰ 3470S!\ :!f : JJ²0 ¤ LL: ˜ 8,QT$;DA$(JJ);CR$;: DA$(JJ)²"": ‚ JJ§!p FS%²0: FA$²"DA": ž SSâ!z JJ²0 ¤ FT%«1: ˜ 8,QT$; #";FS%;" ’"#Þ ™ "HAS PRODUCED ";NR«LL«1;" ’ RECORDS (OUT OF";NR4#è ™ "TOTAL) WHICH CAN'T BE EDITED DUE TO"R#ò ™ "NULLS IN THAT FIELD."z#ü ™ "NEW RECORDS CAN NOT BE ADDED IN"œ#™ "PRESENT SORT CONDITION."°#PR$²"E": ‰ 3680¶#:Ó#$: NF²ADD ";÷$t‹ LL±«1 § ™ " D ’ DELETE";CR$;" E ’ EDIT ";%~™ " F ’ FINISHED";,%ˆK1$²PR$: 1880: PR$²K1$K%’‹ PR$²"A" ¯ NR²LLª1 § 3790h%œ‹ PR$²"E" ¯ LL±«1 § 3840…%¦‹ PR$²"D" ¯ LL±«1 § 3930š%°‹ PR$²"F" § 4050¥%º‰ 3690«%Ä:È%Î: ‹ NR³MR ¯ ²K2ç&‹ EL%³BN § ™ £TB);RL$: EL%²RN: ‰ 3840'(‹ EL%±LL¬10ªBN § ™ £TB);RL$: EL%²LL¬10ªRN: ‰ 3840<'2ML%²(EL%«BN)10ª.5: PL²ML%c'<‹ DA$(ML%)²"" § ™ £TB);AD$: ‰ 3690v'F 1300: ‰ 3690|'P:¨'Z: ™ "DELETE LINE # -----";: K2²EL%ª10È'd‹ K2±LL¬10ªN": 1760: ‹ KB$²"N" § 3690õ(´NC²NC«Ã(DA$(ML%)): DA$(ML%)²""%)¾DF²1: M1²3: ™ £S1ª4);"‘ DELETED ’": ‰ 3690+)È:?)Ò: ‹ DF²0 § 2400p)Ü™ "DUE TO DELETIONS, THE FILE IS NOW BEING"Ÿ)æ™ "SORTED ON FIELD #0 IN ASCENDING ORDER."È)ð™ "-- YOU MAY REID$²K1$å‚ :$Œ : ™ "SOURCE FILE NAME";: K1$²IL$: 1880: IL$²K1$: NA$²IL$L– ‹ Ã(IL$)±LN § IL$²È(IL$,LN): ‰ 2700s Ÿ 8,8,8,ID$ª":"ªIL$ª",S,R": 1830•ª ‹ EN³±0 § 8: 2080: ‰ 2400›´ :·¾ „ 8,X1$: ‹ ST³±0 § 2880àÈ FD$²È(X1$,1): 1980: ‹ EF$;FD$;QT$;£TA);"IS THE FIELD DELIMITER."M1²3: LL²NR«1: ‰ 2900:R": ™ Y1$;" FILE TOO LARGE TO LOAD. MORE THAN: ’"Š,™ "";MR;" RECORDS -OR- ";MC;" CHARACTERS ’";Y0$¦6 8: œ : 1550: ‰ 2390Ù@: ™ Y1$;" NO DATA RECORDS IN THE FILE šK1$²"A": 1880: FO$²K1$: ‹ K1$³±"A" ¯ K1$³±"D" § 2960¤:7®: FA$²"DA": ž SS: ‹ FS%²0 § NR²FT%^¸™ CR$;NR;£TA);"TOTAL DATA RECORDS"ƒÂ™ FT%;£TA);"DATA RECORDS SORTED"—Ì‹ NR²FT% § 3040ÊÖ™ NR«FT%;£TA);"RECORDS WITH NULL IN FIELD";FS%õà: ™ YC$;: K2²2: 1930: ‹ K2²1 § SF²1: ‰ 3170D‹ K2²2 § SF²0: ‰ 3220N‰ 3130%X:Pb: ™ "FILE WILL BE ERASED FROM MEMORY"{l™ "DURING THIS SAVE. PRESS M ’ FOR"©v™ "ANOTHER MENU SELECTION OR --‘": 1680¾€‹ KB$²"M" § 2400ÄŠ:Ì”: 3280ãä: ID$²K1$: RE$²""éî: ø 2250: ‹ ER²1 § ER²0: ‰ 2390G : Ÿ 8,8,8,RE$ªID$ª":"ªNA$ª",S,W": 1830: ‹ EN²0 § 3390_ 8: ‹ EN²63 § 3360r 2080: ‰ 2400 : ™ "REPLACE EXISTING FILE";: 1750: ‹ KB$²"N" § 2400Á * RE$²"@": ‰ 3330Ç 4 DA$(JJ);CR$;: DA$(JJ)²"": ‚ JJø!„ NR²0: LL²«1: M1²2 "Ž : 1830: 8A"˜ ‹ EN³±0 § ™ Y1$;" FILE NOT SAVED CORRECTLY ’";Y0$L"¢ ‰ 2390R"¬ :o"¶ "---EDIT/ADD RECORDS--"u"À :—"Ê : ‹ NR²LLª1 § PR$²"A": ‰ 3680Ð"Ô ™ " NOTE ’ - PRESENT SORT ON FIELD 2: FD$²"!": PR$²"A"ó#.: ™ "# FIELDS PER RECORD";#$8K2²NF: 1930: NF²K2: ‹ NF³1 ° NF±20 § 3630]$B: ™ "DELIMITER TO BE USED";: K1$²FD$: 1880: FD$²K1$w$L 1980: ‹ EF²1 § 3650}$V:š$`: FA$²"TS": EL%²LL¬10ªRNÅ$j: ™ "";: ‹ NR²LLª1 § ™ " A ’ NC³MC § 3810&Ø™ Y1$;" FILE SIZE LIMIT REACHED ’";Y0$: M1²4: ‰ 23907&â: PL²LL: LL²LLª1: ML%²LL: NR²NRª1: ‹ LL²0 § PL²0X&ìEL%²LL¬10ªBN: 1300: ‰ 3690^&ö:Š&: ™ "EDIT LINE # -------";: K2²EL%ª10ª& ‹ K2±LL¬10ªBN § K2²LL¬10ªBN½& 1930: EL% BN § K2²LL¬10ªBNÛ'n 1930: EL%²K2(x‹ EL%³BN § ™ £TB);RL$: EL%²RN: ‰ 3930;(‚‹ EL%±LL¬10ªBN § ™ £TB);RL$: EL%²LL¬10ªRN: ‰ 3930R(ŒML%²(EL%«BN)10ª.5y(–‹ DA$(ML%)²"" § ™ £TB);AD$: ‰ 3690˜( ™ "";EL%;" ";QT$;DA$(ML%)Ò(ª™ "ARE YOU SURE";: KB$²" -SORT AS DESIRED --"ã)úFO$²"A": FS%²0: ‰ 2990é):*"---LIST THE FILE--" *: *": ‹ NR²LLª1 § 4160Q*,™ "ONLY THE ";LLª1;" ’ RECORDS WITH DATA"~*6™ "IN FIELD ";FS%;" ’ WILL BE LISTED."©*@: ™ "PRESS ANY KEY TO PAUSE, THEN --"Ô*J™ "50Ï+†: ¡ KB$: ‹ KB$²"" § 4230å+‹ KB$²"Q" § JJ²LL,š: ‚ JJ: JA²1 ¤ 66«LP: ˜ 4,CR$;: ‚ JA&,¤ 4: M1²5: ‰ 2400,,®:L,¸"---PROGRAM TERMINATION--"R,Â:g,Ì: 4: 8: 14Œ,Ö: ™ "PRESS Q ’ TO QUIT OR --"²,à™ "ANY OTHER KEY FOR MASTER MÃ-0— 824,248: “ PS$,8 4230å+‹ KB$²"Q" § JJ²LL,š: ‚ JJ: JA²1 ¤ 66«LP: ˜ 4,CR$;: ‚ JA&,¤ 4: M1²5: ‰ 2400,,®:L,¸"---PROGRAM TERMINATION--"R,Â:g,Ì: 4: 8: 14Œ,Ö: ™ "PRESS Q ’ TO QUIT OR --"²,à™ "ANY OTHER KEY FOR MASTER M è SAVE "@0:DFH MERGE",8#ò:^ü" A DATA FILE HANDLER PROGRAM FOR MERGING PRE-SORTED"“" SINGLE OR MULTI-FIELD SEQUENTIAL DATA FILES."™:Ÿ.:Ã8"--ADJUST FOR COMPUTER TYPE--"ÉB:ûL‹ Â (65534)²72 § 1140: "-- C-64 COMPUTER --"1824,0: TY²2: Y0$²"": Y1$²""H¦‹ Â (65534)²72 § TY²6: Y0$²Ç(31): Y1$²Ç(158)S°‰ 2600Yº:Ä"======START OF SUBROUTINES======"‡Î:¤Ø"--SUB--LOAD RECORDS--"ªâ:Õì: „ 8,DA$(DP): TT²ST: CC²CCªÃ(DA$(DP))ÿöDA$(DP)²DA$(DP)ªTG$: RC²RCª1: DPDL%(LF)«1-dDA$(JO)²"": NC²NCªLE: NR²NRª1: ™ "‘";NRDn‹ DL%(LF)³1 § 1470Jx:k‚: ‹ NC±CO ° NR²±RO § CP²2: ŽŒ‹ JO³FT% § 1350±–™ " END OF VALID SORTED DATA. NOW USING ’"â ™ " FIELD ZERO SORT FOR REST OF RECORDS. ’" ªSF²0: FS%²SF: ž$: ‹ KB$²"" § 1560 "Ž ,:5 6"--SUB--WAIT FOR YES OR NO--"; @:Q J: KB$²"Y": ‰ 1630_ T: KB$²"N"… ^: ™ CU$;¦S1);"? ";KB$;CU$;¦S1ª2);¥ h: „ 1,KB$: ™ : KB$²È(KB$,1)Á r‹ KB$²"Y" ° KB$²"N" § Žë |™ " Y ’ YES OR N ’ NO ? ";: ‰ 1640ñ †:ô„ 1,K1$: ™ : Ž þ:&"--SUB--NUMBER INPUT--",:P: ™ CU$;¦S1);"?";K2;CU$;¦S1ª2);n&„ 1,KB$: ™ : K2²Å(KB$): Žt0:“:"--SUB--TEST DELIMITER--"™D:¶N: EF²0: ‹ FD$³±"" § 1890ïX™ " ENCLOSE COMMA/COLON/SPACE IN QUOTES ’": EF²1: #";DN$;" ’": ‰ 19900¼: ™ "INSTALL OUTPUT DISKETTE #";DN$;" ’"eÆ: ‹ TY³±6 § ™ " IN DRIVE # ";DR$uÐ™ "THEN, ";Ú: 1540: ˜ 15,"I";DR$§ä 1710: ‹ EN²0 § ŽÖî™ "CAN'T INITIALIZE -- TRY AGAIN.": ‰ 2010Üø:ý"--SUB--A ’";Y0$: ‰ 2190!\FD$²È(X1$,1): 1870: ‹ EF³±0 § 2190'f:Ip‹ FF²0 § FF²1: TD$²FD$: ™ : Ž_z‹ TD$²FD$ § ™ : Ž”„™ Y1$;" DIFFERENT DELIMITER ’";Y0$;QT$;FD$;QT$ÄŽ: ™ " IN FILE - ’";QT$;DT$(LF);QT$: ‰ 4220Ê˜:¢: ™ £7);"SPOOLING-UP IN Q ’ TO QUIT LISTING OR ANY OTHER"í*T™ "KEY TO CONTINUE."'+^OL²1000: LP²1: Ÿ 4,4: ˜ 4,;OL;QT$;FD$;"_@0:";IL$;CR$;^+h JJ²0 ¤ LL: OL²OLª10: ˜ 4,OL;CA$;QT$;DA$(JJ);CR$;—+rLP²LPª1: ‹ LP²±60 § LP²0: JA²1 ¤ 6: ˜ 4,CR$;: ‚ JA²+|¡ KB$: ‹ KB$²"" § 42ENU"Ð,ê 1690: ‹ KB$³±"Q" § 4350þ,ô™ " PROGRAM TERMINATED ’";: 1: 15: €,-þ: PS$²"DFH BOOT": Ÿ 8,8,8,"0:"ªPS$ª",P,R"K- 1830: 8: ‹ EN²0 § 4390o-™ "TRYING TO LOAD ";PS$;" ’"‚- 2080: ‰ 4310¬-&: 1: 15: ™ " LOADING ";PS$;" ’" ";DT$(LF);" ’": HC%²DC%(LF)2568¬— SDª3,HC%: — SDª2,DC%(LF)«HC%¬256: ž SU: Ž>¶:`À"--SUB--LOAD FILE SEGMENT--"fÊ:Ô: 2070: CC²0: RC²0: TG$²Ê(Ä(LF),2)¬Þ‹ Ã(TG$)³2 § TG$²"0"ªTG$Øè™ £7);"‘RECORDS FROM ";DT$(LF);" ’"÷ò 1260:V‹ Â (824)³±248 § 1180: "-- NOT A PROG'D LOAD --"X`— 42,Â (201): — 43,Â (202): ‰ 1180^j:”t: — 53280,14: — 53281,14: ™ Ç(31);: "--COLORS--"Ê~‹ Â (824)³±248 § 1180: "-- NOT A PROG'D LOAD --"éˆ— 45,Â (174): — 46,Â (175)ï’:œ: œ : — ²DPª1!™ "‘";RCªDC%(LF): ‹ TT³±0 § Ž= ‹ CC³CS ¯ RC³RS% § 1260CŽI:e("--SUB--DATA OUTPUT--"k2:™<: ™ £7);"RECORDS OUT TO ";NA$;OF$;" ’"§F: JO²JOª1×PLE²Ã(DA$(JO))«2: ˜ 9,QT$;È(DA$(JO),LE);CR$;ZLF²Å(É(DA$(JO),2)): DL%(LF)² SS: JO²«1: ‰ 1340 ´:* ¾: ‹ DD%(LF)±0 § CP²1: ŽQ È JJ²0 ¤ CT: ‹ DL%(JJ)±0 § JJ²CTª3l Ò‚ JJ: ‹ JJ±CTª2 § 1410x ÜCP²8: Ž~ æ: ð"--SUB--WAIT FOR OPERATOR--"¦ ú:Ë : ™ "PRESS ANY KEY TO CONTINUE"é : ¡ KB$: ‹ KB$³±"" § 1550 : ¡ KB"--SUB--TEST/PRINT DISK ERROR--"š:(¤: EB²1W®: „ 15,EN,EM$,ET,ES: ‹ EN²0 ° EN²63 § 1730“¸: ‹ EB²0 § ™ Y1$;" DISK ERROR ’";Y0$;CR$;EN;EM$;ET;ES¡Â: EB²0: Ž§Ì:ÄÖ"--SUB--STRING INPUT--"Êà:ðê: ™ CU$;¦S1);"? ";K1$;CU$;¦S1ª2);Ž b: ‹ Ã(FD$)³±1 ° Æ(FD$)³32 § EF²19 l‹ Æ(FD$)±127 ¯ Æ(FD$)³161 § EF²1Z v‹ FD$²"0" ° Å(FD$)³±0 § EF²1˜ €‹ EF²1 § ™ Y1$;" ILLEGAL DELIMITER ’";Y0$;QT$;FD$;QT$ž ŠŽ¤ ”:À ž"--SUB--DISK CHANGE--"Æ ¨:ÿ ²: ™ "INSTALL SOURCE DISKETTE OPEN SOURCE FILE--":1: Ÿ 8,8,8,DI$ª":"ªDT$(LF)ª",S,R": 1700:C ‹ EN²0 § 2120v*‹ EN³±62 § 1720: ™ "TRYING TO OPEN ";DT$(LF)§4 8: DN$²Ä(DD%(LF)): DR$²DI$: 1970: ‰ 2070>:ÊH: „ 8,X1$: ‹ FP²1 § 2210øR‹ ST³±0 § ™ Y1$;" NO DAT ;£8);"TOTAL DATA FILES"ý „ ™ µ(TR);£8);"TOTAL RECORDS")!Ž ™ µ((TBªTR¬2)254)ª1;£8);"TOTAL BLOCKS"N!˜ CS²CIFC: RS%²RIFC: RF%²TBMCª1n!¢ ‹ TRMRª1±RF% § RF%²TRMRª1Ÿ!¬ ™ " READY TO DEFINE OUTPUT FILES ’"Í!¶ : ™ "";RF%;"OUTPUT FILES ARE SU0: ‹ KB$²"N" § 3510#ü : RO²MR: CO²MC: ‹ NF³±RF% § CO²(TBªTR2)NF"#‹ NF±RF% ¯ CO±MC § CO²MC:#‹ NF³RF% § RO²99999@#:`#$"--GET OUTPUT FILE NAME--"f#.:”#8: ™ "A SEQUENCE NUMBER WILL BE ADDED TO"Á#B™ "EACH OUTPUT FILE NAME. WHAT NAME DO 8: ‹ TT²0 § 2310ü™ "‘";RCªDC%(LF);" ’": DD%(LF)²0N : DC%(LF)²DC%(LF)ªRC: DL%(LF)²DL%(LF)ªRC: ŽT :v "--SUB--TEST #BLOCKS FREE--"|$ :®. : Ÿ 14,8,0,"$"ªDR$ª":": 1710: ‹ EN²0 § 2380é8 14: ™ Y1$;" CAN'T READ OUTPUT DISK DIRECTORY --SUB--OPEN/SETUP NEW OUTPUT FILE--" ’ :œ : RE$²""@¦ : Ÿ 9,8,9,RE$ªDR$ª":"ªNA$ªOF$ª",S,W"[° 1710: ‹ EN³±0 § 2500”º ˜ 9,QT$;FD$"_@0:";NA$;OF$;CR$;: NR²0: NC²9ªÃ(NA$): Ž¬Ä : 9: ‹ EN³±63 § ŽÙÎ ™ " OUTPUT FILE ’";NA$;OF$;" EXISTS ’"õØ A FILE DISK #--"F † DC%(50): "--DATA COUNT FOR SPOOL-UP--"BP † DL%(50): "--DATA LOADED COUNT--"kZ † DA$(RI): "--DATA STORAGE ARRAY--"€d Ÿ 1,0: Ÿ 15,8,15¨n S1²22: SS²30976: SU²30985: SD²30991¼x FA$²"DA": FT%²0ì‚ CR$²Ç(13): QT$²Ç(34): CU$È K2²SF: 1820: SF²K2: ‹ SF³0 ° SF±20 § SF²0: ‰ 2750JÒ : ™ " A ’ ASCENDING OR";CR$;" D ’ DESCENDING ORDER";jÜ K1$²SO$: ‹ K1$²"" § K1$²"A"œæ 1770: SO$²K1$: ‹ SO$³±"A" ¯ SO$³±"D" § 2770¢ð :Üú ™ " ENTER NAMES OF UP TO 50 SOURCE FILES ’": ONLY 50 FILES ALLOWED ’": ‰ 2940^™ "ANY MORE FILES";: KB$²"Y"4h‹ RV²1 ¯ TC±CT § KB$²"N"Qr 1630: ‹ KB$²"Y" § 2820|: CT²TC«1: ™ "ALL FILENAMES OK";: 1610”†‹ KB$²"Y" § 3020¼: ™ "RE-DEFINE THE MERGE";: 1610ßš‹ KB$²"Y" § RV²1:" § 3050äþDI$²K1$: ™ "OUTPUT FILES TO DRIVE";5K1$²DO$: 1770: ‹ K1$³"0" ° K1$±"1" § 3080YDO$²K1$: TY²2: ‹ DI$²DO$ § TY²1‚&"--FIND FILE LOCATIONS AND SIZES--"ˆ0::: DK%²1: DR$²DI$¶D: DN$²Ä(DK%): 1970ØNDE²0: — SDª3,254: ";Y0$: JA²CT: ‰ 3270æž:"¨: FR²Â (SD)ªÂ (SDª1)¬256ª1: FB²Â (SDª4)ªÂ (SDª5)¬256«FRO²DD%(JA)²DK%: FC²FCª1: TR²TRªFR: TB²TBªFBŒ¼™ "FOUND ";DT$(JA);£20);µ((FBªFR¬2)254)ª1;£25);"BLOCKS"«Æ: 8: ‚ JA: ‹ DE²0 § 3310½Ð‹ DE²2 § 4220æÚ™ " TR™ " ALL FILES MUST BE ON THE SAME DISK ’"# 4 ™ " FOR 'SINGLE DRIVE' OPERATIONS ’"V > ™ "NEED A NEW DISK";: 1610: ‹ KB$²"Y" § 3140a H ‰ 2960g R :‘ \ "--MEMORY & DISK SPACE ALLOCATION--"— f :½ p : ™ "MERGE INFORMATION SUMMARY:"Ý z ™ FCGGESTED."í!À : ™ "HOW MANY DO YOU WANT";"Ê K2²RF%: 1820: ‹ K2³1 ° K2±99 § 35203"Ô NF²K2: ‹ NF²±RF% § 3580p"Þ ™ Y1$;" WARNING ’";Y0$;" FILE(S) MAY BE TOO LARGE FOR"š"è ™ "THE SORTING AND EDITING PROGRAM."Õ"ò ™ "DO YOU WANT TO CONTINUE";: 162"Ú#L™ "YOU WANT TO USE";÷#VK1$²NA$: 1770: NA$²K1$$`‹ Ã(NA$)³12 § 3710?$j™ " NAME TOO LONG ’": NA$²È(NA$,11): ‰ 3640E$t:Y$~: ‹ TY²2 § 3810o$ˆNE²0: JJ²0 ¤ CT˜$’‹ NA$ª"."²È(DT$(JJ),Ã(NA$)ª1) § NE²1°$œ‚ JJ: ‹ NE²0 § 3810×$¦™ Y1$;" ’";Y0$üB 1980: ‰ 2350)L : JJ²1 ¤ 18: ¡ #14,X1$,X2$: ‚ JJ: 14KV BF%²Æ(X1$ªZR$)ªÆ(X2$ªZR$)¬256x` ™ "";BF%;£6);"BLOCKS FREE FOR ";NA$;OF$Ÿj ER²0: ‹ BF%±(TBª2¬TR)254NFª3 § ŽÓt ™ Y1$;" NOT ENOUGH BLOCKS FREE ’";Y0$: ER²1: ŽÙ~ :ˆ "™ "WANT TO REPLACE IT";â 1610: ‹ KB$²"Y" § RE$²"@": ‰ 2470#ì Ž)ö :S "====== START OF MAIN PROGRAM ====="Y :o "--INITIALIZE--"u :ž( : RI²650: CI²13000: MR²650: MC²13000Å2 † DT$(50): "--DATA FILE TITLES--"ì< † DD%(50): "--DAT²CR$ª"‘": ZR$²Ç(0)Œ ™ "“ READY TO MERGE FILES ’"J– : FP²0: TN²0: OD²1: DI$²"0": DO$²"1": ‹ TY²6 § DO$²"0"~ RV²0: CT²0: TC²0: JJ²0 ¤ 50: DT$(JJ)²"": ‚ JJ„ª :¹´ : FF²0: ™ "HOW WERE THE SOURCE FILES SORTED ?"Ö¾ : ™ "SORTED ON FIELD #";K1$²""û: ™ "SOURCE FILE #";TCª1;‹ RV²1 § K1$²DT$(TC); 1770: DT$(TC)²K1$: ‹ TC³1 § 2890i"ER²0: JJ²0 ¤ TC«1: ‹ K1$²DT$(JJ) § ER²1r,‚ JJ6‹ ER²1 § ™ Y1$;" FILENAME ALREADY USED ’";Y0$: ‰ 2820³@:ÁJ: TC²TCª1öT‹ TC±49 § ™ " TC²0: ‰ 2740ê¤‰ 4270ð®:¸"--DEFINE DRIVE USAGE--"Â:CÌ: RV²0: FC²0: JJ²0 ¤ CT: DD%(JJ)²0: ‚ JJuÖ™ " READY TO LOCATE FILES & CHECK SIZES ’"‡à‹ TY²6 § 3130¨ê: ™ "SOURCE FILES IN DRIVE";ØôK1$²DI$: 1770: ‹ K1$³"0" ° K1$±"1 JA²0 ¤ CTXŸ 8,8,8,"0:"ªDT$(JA)ª",S,R": 1700b‹ EN²62 § 3270=l‹ EN³±0 § 1720: DE²1: JA²CT: ‰ 3270Vv‹ DD%(JA)²DK% § 3270~€‹ DD%(JA)²0 § „ 8,X1$: ž SU: ‰ 3240 ŠDE²2: ™ " FILE ’ ";DT$(JA)à”™ Y1$;" FOUND ON MORE THAN ONE DISK ’ Y AGAIN ! ’": ‰ 3140ìä:î: ‹ FC±CT § ™ " ALL FILES LOCATED ’": ‰ 3440>ø™ " STILL LOOKING FOR: ’"g JJ²0 ¤ CT: ‹ DD%(JJ)²0 § ™ DT$(JJ)p ‚ JJ ‹ TY³±1 § DK%²DK%ª1: ‰ 3140Ã JJ²0 ¤ 50: DD%(JJ)²0: ‚ JJ: FC²0: TR²0: TB²0ó* è SAVE "@0:DFH SPLIT",8#ò:hü" A DATA FILE HANDLER PROGRAM TO SPLIT OR EXTRACT RECORDS FROM"“" MULTI-FIELD SEQUENTIAL DATA FILES."™:°." (213) 559-4887"¶8:ÞB"--SET TOP OF BASIC IF REQUIRED--"äL:V‹ Â (65534)²72 § 1150 FILENAME CONFLICT ’";Y0$%°™ "SOURCE FILENAME CAN'T BE RE-USED FOR"<%º™ "OUTPUT WITH SINGLE DISK DRIVE": 1540: ‰ 3640B%Ä:o%Î"--LOAD & SORT INITIAL FILE SEGMENTS--"u%Ø:µ%â: DP²0: LF²0: ™ " READY TO LOAD INITIAL FILE SEGMENTS ’"á%ì 3920Ê&< 1980Ð&F:þ&P: TN²TNª1: OF$²".": ‹ TN³10 § OF$²OF$ª"0"'ZOF$²OF$ªÊ(Ä(TN),2)'d:7'n: 2350: ‹ ER²1 § 3980Q'x 2460: ‹ EN²0 § 4040W'‚:k'Œ: ‹ TY²1 § 4010‚'–OD²ODª1: DN$²Ä(OD)—' : 1980: ‰ 3950Í'ª: ™ "TRY OUTPUT AGAIN";: NOT SAVED CORRECTLY ’";Y0$: ‰ 4220ë("‹ CP²8 § 4230),‹ CP²2 § 9: ‰ 3920)6‹ TY²6 § 9>)@FS%²0: FO$²SO$: ž SS: DP²FT%: 2260e)JFS%²SF: ž SS: JO²«1: ‹ TY²6 § 4060p)T‰ 4110v)^:•)h"--PROGRAM TERMINATION--"›)r:Ñ)|: EN²0: ™ " PROGRA"Q" § 4310ê*Ì™ " PROGRAM TERMINATED ’": 1: 15: €!+Ö: DR$²"0": PS$²"DFH BOOT": Ÿ 8,8,8,"0:"ªPS$ª",P,R"@+à 1710: 8: ‹ EN²0 § 4370d+ê™ "TRYING TO LOAD ";PS$;" ’"ƒ+ô™ "INSTALL CORRECT DISK ";¤+þ‹ TY³±6 § ™ "IN DRIVE ";DR$;Ê+™ CR$;"¦: œ : — 824,0: TY²2: Y0$²"": Y1$²""R°‹ Â (65534)²72 § TY²6: Y0$²Ç(31): Y1$²Ç(158)Xº:“Ä™ "“ READY TO SPLIT FILES OR EXTRACT DATA ’": ‰ 2970ÇÎ"========== START OF SUBROUTINES ============"ÍØ:ïâ"--SUB--INPUT NEXT RECORD--"õì:öJ²LS%P‚ JJ: ‹ FS²1 § FS²0: KS²KSª1: ‰ 1400:Z‹ SE$²"E" § 1420Sd‹ TT³±0 § ME²2: TT²0YnŽtx: ‹ M1²2 ° CO²2 § 1440¯‚: CS²CSª1: BC²BCªÃ(RC$(0)): ‹ RS$²"N" § PR$(CS)²RC$(0)ÛŒ: ‹ SE$²"E" § KE²KEª1: ™ "‘‘";KE;CR$;KS –‹ CS±²MR ° BC±MB § ™ M«1: Žÿ : "--SUB--SAVE TO DISK--"" :9 ": ‹ D1$²"Y" § 1600C ,: 8P 6: 2170‚ @: Ÿ 14,8,0,"$"ªOD$ª":": 1940: ‹ EN²0 § 1630» J 14: ™ "CAN'T READ DIRECTORY ON DRIVE # ";OD$;" ’"Æ T‰ 1590ó ^: JJ²1 ¤ 18: ¡ #14,X1$,X2$: ‚ JJ: 11580ú¤:®: SF$²YN$ªSC$ª",S,W"H¸: Ÿ 9,8,9,RE$ªOD$ª":"ªSF$: 1940: ‹ EN²0 § 1860kÂ 9: ‹ EN³±63 § 2820: ‰ 1590œÌ™ " FILE ’ ";QT$;YN$;SC$;QT$;" EXISTS ’"¹Ö™ "WANT TO REPLACE IT";áà 2640: ‹ KB$²"Y" § RE$²"@": ‰ 1720þê™ "OPTI ˜ 9,FD$"_@";OD$;":";YN$;SC$BN™ £6);"RECORDS OUT TO ";QT$;YN$ªSC$;QT$: JJ²1 ¤ CSuX™ "‘";JJ;" ’": ˜ 9,PR$(JJ): PR$(JJ)²"": ‚ JJ¦b 1940 : 9: ‹ EN²0 § BC²0: CS²0: RE$²"": ŽÛl™ Y1$;" FILE NOT SAVED PROPERLY ’";Y0$: ‰ 4590áv:€"--: "--C-64 COMPUTER--"H`‹ Â (824)³±248 § 1190: "--NOT A PROG'D LOAD--"fj— 42,Â(201): — 43,Â (202)lt:¢~: — 53280,14: — 53281,14: ™ Ç(31);: "--COLORS--"Öˆ‹ Â (824)³±248 § 1190: "--NOT A PROG'D LOAD--"ó’— 45,Â(174): — 46,Â(175)ùœ:!JJ²0 ¤ 50: DC%(JJ)²0: DL%(JJ)²0: ‚ JJ &ö: 2260: ‹ LF³CT § LF²LFª1: ‰ 3830)&FP²1: FS%²SF: FO$²SO$: ž SSe& ‹ FT%³1 § ™ Y1$;" NO DATA IN SORT FIELD ’";Y0$: ‰ 4220k&:Œ&"--MERGE PROCESS CONTROL--"’&(:¿&2DN$²Ä(OD): DR$²DO$: JO²«1: ‹ TY²1 §1610: ‹ KB$"Y" § 4000Ø'´‰ 4220Þ'¾:ó'È: ‹ TY³±6 § 4110û'Ò 96(Ü: Ÿ 9,8,9,DR$ª":"ªNA$ªOF$ª",A": "--OPEN FOR APPEND--"P(æ 1700: ‹ EN²0 § 4110k(ð 9: ‹ EN³±62 § 1720~(ú 1980: ‰ 4060„(:™(: 1340: 1710Ù(‹ EN³±0 § ™ Y1$;" FILEM OPERATION HALTED ’": ‰ 4240ð)†: ™ " MERGE COMPLETED ’" *: 8: 9: 14: ™ "MORE FILES TO MERGE";K*š 1610: ‹ KB$²"Y" § TB²0: TR²0: ‰ 2710S*¤ 1x*®: ™ "PRESS Q ’ TO QUIT OR --"ž*¸™ "ANY OTHER KEY FOR MASTER MENU"¼*Â 1550: ‹ KB$³±_THEN ---";: 2010: ‰ 4270ô+: 1: 15: ™ " LOADING ";PS$;" ’",— 824,248: “ PS$,8LES TO MERGE";K*š 1610: ‹ KB$²"Y" § TB²0: TR²0: ‰ 2710S*¤ 1x*®: ™ "PRESS Q ’ TO QUIT OR --"ž*¸™ "ANY OTHER KEY FOR MASTER MENU"¼*Â 1550: ‹ KB$³±: „ 8,RC$(0)D: „ 8,RC$(0): TT²ST: CE²CEª1: ž SP: ‹ FT%³CF § RC$(CF)²""J ŽP:p"--SUB--MATCH AND STORE--"v(:“2: ‹ ME²2 § TT²1: ME²0: ŽÅ< 1280: LS²BB: ‹ PD$²"A" § LS²Ã(RC$(CF))«LEª1üF JJ²BB ¤ LS: ‹ RM$²Ê(RC$(CF),JJ,LE) § FS²1: JF$: ME²1: Ž : ‹ TT³±0 § Ž ª‰ 1330$ ´:= ¾"--SUB--SPOOL-UP--"C È:h Ò: 2160: 2400: ‹ EN³±0 § 1490† Ü„ 8,RC$(0): ‹ CE³2 § 1530º æ™ "SPOOLING UP IN "QT$;OF$;QT$: RP%²(CE«1)256à ð— HB,RP%: — LB,CE«1«RP%¬256: ž SUù ú: 1280: CE²CE4hBF²Æ(X1$ªZR$)ªÆ(X2$ªZR$)¬256Mr™ "";BF;" BLOCKS FREE": ‹ BF±(BCªCS¬2)254ª2 § 1710y|™ Y1$;" NOT ENOUGH BLOCKS FREE ’";Y0$—†: ‹ TY²2 ° D1$²"N" § 1590ÈD1$²"N": ™ "REMAINÿÿyÿÿqÿÿwwÿÿwÿÿÿÿùÞÿÿt”ÄÂ ÿÿÿÿÿÿBÿÿŠûÿÿÿÿÿÿÿÿÿ»ÿÿÿÿÿÖÿTÿÿÿÿ# ONS AVAILABLE:"+ ô‹ SQ$²"I" § ™ " R ’ RENAME OUTPUT FILE"J þ™ " C ’ CHANGE DISKETTES"` : ™ " Q ’ QUIT"; K1$²OP$: 2720: OP$²K1$: ‹ OP$²"Q" § 4590¤ ‹ OP$²"C" § 1670Í &‹ OP$²"R" ¯ SQ$²"I" § 2480: ‰ 1710à 0™ "‘";: ‰ 1800æ ::D: SUB--TEST/PRINT DISK ERROR--" Š:9”: „ 15,EN,EM$,ET,ES: ‹ EN²0 ° EN²63 § Žmž™ Y1$;" DISK ERROR ’";Y0$;CR$;EN;EM$;ET;ES: Žs¨:’²"--SUB--TEST DELIMITER--"˜¼:ÂÆ: „ 8, RC$(0): TT²ST: FD$²È(RC$(0),1)ÝÐEF²0: ‹ FD$³±"" § 2020Ú™ "EN-"î*:4: SN²SNª1: SC$²"": ‹ SN±99 § 21207>SC$²"0": ‹ SN³10 § SC$²SC$ª"0"WH: SC$²"."ªSC$ªÊ(Ä(SN),2): Ž]R:‡\"--SUB--DISK CHANGE/INITILIZATION--"f:µp: DR$²SD$: DT$²" SOURCE ’": ‰ 2180Õz: DR$²OD$: DT$²" OUTPUT ’"ù„: ™ "INSTFILE: ";OF$;CR$;PF$;CF*Þ˜ 4,CR$;"FILE";¦3);"NO. OF";¦4);"NO. OF";¦3);\è˜ 4,"DATA";CR$;¦7);"RECORDS";¦3);"BYTES";¦4);tò˜ 4,"STRING";CR$: Žzü: : ˜ 4,CA$;SC$;¦8«Ã(Ä(CS)));CS;¦9«Ã(Ä(BC)));BC;È ˜ 4,¦3);QT$;È(RM$,50);ÿ ‹ Ã(RM$)±50 § ˜ 4,C --GET FILENAMES--"ö’ :/œ : ™ "SOURCE FILE NAME";: K1$²TF$: 2720: TF$²K1$: Ž5¦ :l° : ™ "OUTPUT FILE NAME";: K1$²YN$: 2720: YN$²K1$Šº ‹ YN$²OF$ § ™ NE$: ‰ 2480žÄ ‹ Ã(YN$)³13 § ŽÕÎ ™ " FILE NAME TOO LONG ’": YN$²È(YN$,12): ‰ 2480ÛØ :$;¦S1);"? ";KB$;CU$;¦S1ª2);d : „ 1,KB$: ™ : KB$²È(KB$,1)1n ‹ KB$²"Y" ° KB$²"N" § Ž[x ™ " Y ’ YES OR N ’ NO ? ";: ‰ 2660a‚ :~Œ "--SUB--STRING INPUT--"„– :ª : ™ CU$;¦S1);"? ";K1$;CU$;¦S1ª2);½ª „ 1,K1$: ™ : ŽÃ´ :á¾ "--SUB--NUMERICHANGE CASE--"é@:øJ: CV²Â(LC)&T‹ (CV ¯ 2)²2 § — LC,(CV ¯ 253): CA$²"": ŽD^— LC,(CV ° 2): CA$²"": ŽJh:ur"====== START OF MAIN PROGRAM ======"{|:‘†"--INITIALIZE--"—:Öš: SP²30979: LB²30993: HB²30994: SU²30985: MR²650: MB²130 FIELD:"àNE$²Y1$ª" CONFLICT WITH SOURCE FILENAME ’"ªY0$QêSD$²"0": OD$²"1": OP$²"C": SE$²"S": CF²1: S1²23: ME²0: PD$²"B"ŒôAN$²"E": BB²1: LE²2: SQ$²"S": D1$²"Y": AU$²"O": ‰ 3080ºþ: 4: ™ "“ REDEFINE JOB SETUP ’"û: M1²1: BC²0: CS² 3150ôD™ "PREVIEW # OF EXTRACTS";:$N: 2640: RS$²KB$: ‹ TY²6 § OD$²"0": ‰ 3180`X: ™ "SOURCE FILES ON DRIVE";: K1$²SD$: 2720: SD$²K1$Šb‹ SD$³"0" ° SD$±"1" § ™ "‘‘";: ‰ 3160¹l: 2390: ‹ EN³±0 § 2820: 2160: ‰ 3070ÜvOF$²TF$: 199OUTPUT FILES TO DRIVE";: K1$²OD$: 2720: OD$²K1$&Æ‹ OD$³"0" ° OD$±"1" § ™ "‘‘";: ‰ 3260;Ð‹ SD$²OD$ § TY²1AÚ:yä: ™ "FIRST RECORD IN ";OF$;" ’ IS:";CR$;RC$(0)±î™ "CHANGE PRINT CASE";: 2640: ‹ KB$²"Y" § 2890Ñø‹ SE$²"E" § SQ$²"I0í 4 ‹ AN$³±K1$ ¯ K1$²"S" § BB²1: LE²2!> AN$²K1$: ‹ AN$²"E" § BB²1: LE²80: ‰ 3440:!H ‹ AN$³±"S" § ™ "‘";: ‰ 3370i!R ™ "START POSITION";: K2²BB: 2770: BB²K2˜!\ ™ "# OF CHARACTERS";: K2²LE: 2770: LE²K2×!f ™ "SELECTED FROM FIELD";CF;": ";QT$;ÊCLOSE COMMA, COLON OR SPACE IN QUOTES": EF²1: Ž<ä: ‹ Ã(FD$)³±1 ° Æ(FD$)³32 § EF²1aî‹ Æ(FD$)±127 ¯ Æ(FD$)³161 § EF²1‚ø‹ FD$²"0" ° Å(FD$)³±0 § EF²1¸‹ EF²1 § ™ Y1$;" ILLEGAL DELIMITER ’ ";Y0$;FD$¾ŽÄ:è "--SUB--INCREMENT SEQ. NAME-ALL ";DT$;" DISKETTE" Ž‹ TY³±6 § ™ £17);"IN DRIVE # ";DR$0˜™ "THEN, ";_¢: 2560: ˜ 15,"I";DR$: 1940: ‹ EN²0 § ŽŽ¬™ "CAN'T INITIALIZE -- TRY AGAIN.": ‰ 2180”¶:·À"--SUB--PREVIEW TO PRINTER--"½Ê:øÔ: ˜ 4,CR$;CR$;"SPLIT PREVIEW OF R$;CA$;¦26);Ê(RM$,51);: PL²PLª1&$ ˜ 4,QT$;CR$;: PL²PLª1: ‹ PL³60 § ŽT. : JJ²1 ¤ 66«PL: ˜ 4,CR$;: ‚ JJ: PL²0: ŽZ8 :zB "--SUB--OPEN INPUT FILE--"€L :V : 2460¬` : Ÿ 8,8,8,SD$ª":"ªTF$ª",S"Æj 1940: ‹ EN³±0 § 8Ìt ŽÒ~ :ðˆ "--SUBýâ "--SUB--WAIT FOR OPERATOR--"ì :ö : ™ "";4 : ™ "PRESS ANY KEY TO CONTINUE"R : ¡ KB$: ‹ KB$³±"" § 2570o : ¡ KB$: ‹ KB$²"" § 2580u Ž{( :¥2 "--SUB--WAIT FOR YES OR NO ANSWER--"«< :ÁF : KB$²"Y": ‰ 2650ÏP : KB$²"N"õZ : ™ CU INPUT--"çÈ :Ò : ™ CU$;¦S1);"?";K2;CU$;¦S1ª2);)Ü „ 1,KB$: ™ : K2²Å(KB$): Ž/æ :Pð "--SUB--QUIT OR CONTINUE--"Vú :|: ™ "PRESS E ’ TO EXIT, OR --"¦™ "ANY OTHER KEY TO CONTINUE": 2570»‹ KB$²"E" § 4590Á"ŽÇ,:ã6"--SUB--C00 ¤† RC$(20),PR$(MR): LC²59468: ‹ TY²6 § LC²532721®CA$²"": ‹ (Â (LC) ¯ 2)³±0 § CA$²""a¸CR$²Ç(13): QT$²Ç(34): ZR$²Ç(0): CU$²CR$ª"‘"‡ÂFA$²"RC": FT%²0: Ÿ 1,0: Ÿ 15,8,15´ÌMF$²" MEMORY FULL. MUST OUTPUT FILE ’"ÚÖPF$²"BASED ON CONTENTS OF0: SS$²"": SL$²"": SN²0: CE²0: SC$²"": PL²8 KS²0: KE²0J: ™ " S ’ SPLIT OR";CR$;" E ’ EXTRACT";: K1$²SE$: 2720w&‹ K1$³±"E" ¯ K1$³±"S" § ™ "‘‘‘";: ‰ 3100™0‹ K1$³±SE$ ¯ K1$²"E" § RM$²""Ó:SE$²K1$: ‹ SE$²"S" § ™ "PREVIEW TO PRINTER";: ‰0: ‹ EF²1 § 4590€‹ TT³±0 § ™ " NO DATA IN FILE ’": ‰ 4590!Š 1280: CE²0: 8H”‹ RS$²"Y" § AU$²"A": Ÿ 4,4: ‰ 3300[ž‹ TY³±6 § 3260‹¨™ "SOURCE AND OUTPUT";CR$;"FILES ON SAME";À²™ " DISKETTE";: KB$²D1$: 2650: D1$²KB$: ‰ 3300ü¼: ™ " ": ‰ 4190 : ™ "SPLIT ON WHICH FIELD";: K2²CF: 2770: CF²K2- ‹ CF³1 ° CF±20 § ™ "‘‘";: ‰ 3330U ™ "FIELD";CF;" = ";QT$;RC$(CF);QT$’ ™ "SPLIT AT CHANGES IN:";CR$;" E ’ ENTIRE FIELD, OR"Ç * : ™ " S ’ SELECTED POSITIONS";: K1$²AN$: 272 (RC$(CF),BB,LE);QT$î!p : ‹ RS$²"Y" § 3570ô!z :"„ ™ "SPLITTING/SAVING PROCESS TO BE:"\"Ž : ™ " A ’ AUTOMATIC, OR";CR$;" O ’ OPERATOR'S CHOICE";–"˜ K1$²AU$: 2720: AU$²K1$: ‹ AU$²"A" § SQ$²"S": ‰ 3540¸"¢ ‹ AU$³±"O" § ™ "‘‘‘";: ‰ 3470ø"¬ ™ "#è ‹ YN$ª"."²È(OF$,Ã(YN$)ª1) § ™ NE$: ‰ 3540$$ò : ™ "SPLIT DEFINED OK";: 2630: ‹ KB$³±"Y" § 3070K$ü : 2400: ‹ EN³±0 § 2160: ‰ 3580€$ 1270: ‹ AU$²"A" § RM$²Ê(RC$(CF),BB,LE): ‰ 4090†$:–$"--MENU--"œ$$:Ñ$.: ‹ SE$²"E" § ™ "“EXTRACTING U--";CR$;QT$;SL$;QT$ÿ%t: ™ "------------------------------------"4&~‹ TT³±0 § 8: ™ " END OF FILE ’ ";OF$: ‰ 3750f&ˆ™ "NEXT RECORD GROUP IS:";CR$;QT$;RC$(CF);QT$–&’™ " 1 ’ ADD NEXT RECORD GROUP TO MEMORY"Â&œ™ " 2 ’ DISREGARD NEXT RECOR : ‰ 3820Ò'â‹ M1²4 § M1²1(ì: ™ "YOUR CHOICE -----";: K2²M1: 2770: M1²K2'(ö‹ M1²1 ¯ TT²0 § CO²1: ‰ 3940H(‹ M1²2 ¯ TT²0 § CO²2: ‰ 3980i( ‹ M1²3 ¯ CS±0 § CO²3: ‰ 4000‹(‹ M1²4 ¯ TT³±0 § CE²0: ‰ 4460©(‹ RS$²"Y" ¯ SN±0 § 2350Â((‹ M1²8 §‹ SQ$²"I" § 2480: ‰ 4020å)ª‹ AU$²"O" § 2100*´: 1570: ‹ D1$²"Y" ° TT³±0 § 2550B*¾SS$²"": SL$²"": M1²1: ‹ D1$²"N" ¯ TT²0 § 1490\*È‹ ME²1 § ME²0: ‰ 3940g*Ò‰ 3630m*Ü:‡*æ"--AUTOMATIC MODE--"*ð:¦*ú: ‹ RS$²"Y" § 2260Û*: 141OOKING FOR";CR$;"AND WHERE IS IT ";,h™ "LOCATED:";CR$;"WHAT DATA STRING";: K1$²RM$: 2720J,rRM$²K1$: LE²Ã(RM$): ™ "IN WHICH FIELD";: K2²CF: 2770z,|CF²K2: ™ "FIELD";CF;" = ";QT$;RC$(CF);QT$™,†™ "SEARCH FOR STRING AT:"Ú,™ " B ’ BEGINN 2630È-Ì‹ KB$²"N" § 3070ï-Ö: 2400: ‹ EN³±0 § 2160: ‰ 4310þ-à„ 8,RC$(0)6.ê: ™ "EXTRACTING FROM FILE ";OF$;" ’";CR$;PF$;CFo.ô™ £7);"RECORDS EXAMINED";CR$;£7);"RECORDS EXTRACTED".þ‹ LE²0 § LE²1œ. 1330: ‹ TT³±0 § 4390».‹ RS$²"N"490À/€: 2550: ‰ 3630×/Š: ‹ SE$²"E" § 4330ì/”‹ AU$²"O" § 45300ž‹ CS±0 § 1330: ‰ 411010¨ 1280: RM$²Ê(RC$(CF),BB,LE): ‰ 4100O0²: ‹ CO²1 § 1330: ‰ 3960a0¼‹ CO²2 § 3990t0Æ 1280: ‰ 3640z0Ð:™0Ú"--PROGRAM TERMINATION--"Ÿ0ä:³0î: ÂNG TO LOAD ";PS$;" ’"Û1>™ "INSTALL CORRECT DISK ";þ1H‹ TY³±6 § ™ "IN DRIVE # ";SD$;"2R™ CR$;"THEN, ";: 2210: ‰ 4600K2\: 1: 15: ™ "LOADING ";PS$;" ’"b2f— 824,248: “ PS$,8280: ‰ 3640z0Ð:™0Ú"--PROGRAM TERMINATION--"Ÿ0ä:³0î: 6d™"“PLEASE WAIT...":I²886¤1018:‡A:CK²CKªA:—I,A:‚wn‹ CK³±17539 § ™"YOU MADE AN ERROR":™"IN DATA STATEMENTS.":€Ÿxž886:™"“PROOFREADER ACTIVATED.":¢½vƒ 173,036,003,201,150,208Û|ƒ 001,096,141,151,003,173ù‚ƒ 037,003,141,152,003,169 ˆSELECT OUTPUT FILENAMES:";CR$;" I ’ INDIVIDUALLY OR"0#¶ : ™ " S ’ SEQUENTIALLY";: K1$²SQ$: 2720: SQ$²K1$E#À ‹ SQ$²"I" § 3570e#Ê ‹ SQ$³±"S" § ™ "‘";: ‰ 3510#Ô : ™ "A 3-DIGIT SEQUENCE NUMBER WILL"¾#Þ ™ "BE ADDED TO THE NAME YOU ENTER": 2480ìFROM FILE";: ‰ 3650ì$8: ™ "“SPLITTING FILE";%B: ™ " ";OF$;" ’";CR$;PF$;CF9%L‹ RS$²"Y" § BC²0: CS²0: ™ "": ‰ 3680h%V™ "";CS;"RECORDS (";BC;"BYTES) IN MEMORY"›%`: ‹ CS²0 ° AU$²"A" ° SE$²"E" § ™ "": ‰ 3700Ð%j™ "";QT$;SS$;QT$;CR$;"--THRD GROUP"ü&¦: ‹ CS±0 § ™ " 3 ’ SAVE RECORDS IN MEMORY TO DISK"3'°‹ TT³±0 § ™ " 4 ’ CONTINUE TO NEXT SOURCE FILE"Y'º™ " 8 ’ DEFINE NEW JOB SETUP"ƒ'Ä™ " 9 ’ QUIT OR GO TO MASTER MENU"¥'Î‹ TT³±0 ¯ CS±0 § M1²3: ‰ 3820À'Ø‹ TT³±0 § M1²4 8: ‰ 3070Ô(2‹ M1²9 § 4590è(<™ "‘‘";: ‰ 3820î(F: )P"--OPERATOR CHOICE--")Z:I)d: RM$²Ê(RC$(CF),BB,LE): SL$²RC$(CF): ‹ CS³1 § SS$²SL$T)n 1410r)x: ‹ ME²1 § 1280: ‰ 4000})‚‰ 3630˜)Œ: RM$²Ê(RC$(CF),BB,LE))–: 1330: ‰ 3630Î) : 0: 2100: ‹ RS$²"Y" § 2310: BC²0: CS²0ø*: ‹ TT³±0 § CE²0: ‰ 3630+‹ ME²1 § 1280: ME²0=+"RM$²Ê(RC$(CF),BB,LE): ‹ RS$²"Y" § 4100b+, 1570: ‹ D1$²"N" § 1490: ME²0m+6‰ 4100s+@:‹+J"--EXTRACT MODE--"‘+T:Ó+^: ™ "WHAT DATA ARE YOU LING OF FIELD";CR$;" S ’ SPECIFIED POSITION"-š: ™ " A ’ ANYWHERE IN FIELD";: K1$²PD$: 2720: PD$²K1$>-¤‹ PD$²"A" ° PD$²"B" § BB²1: ‰ 4290^-®‹ PD$³±"S" § ™ "‘";: ‰ 4250Œ-¸™ "WHAT POSITION";: K2²BB: 2770: BB²K2³-Â: ™ "EXTRACT DEFINED OK";: § 2480: 1570Ì.ME²0: ‰ 4330ê.&: ‹ ME²0 § 2550: ‰ 3630 /0‹ RS$²"Y" § 2550: ‰ 4420/: 2480: 1570//D: ME²0: ‰ 36305/N:U/X"--CONTINUATION OPTIONS--"[/b:ˆ/l: 2460: 2160: 2400: ‹ EN³±0 § 4480«/vOF$²TF$: 1990: ‹ EF²0 § 4 9: 8: 4Ø0ø: ™ "PRESS Q ’ TO QUIT OR --"þ0™ "ANY OTHER KEY FOR MASTER MENU"1 2570: ‹ KB$³±"Q" § 4640J1™ " PROGRAM TERMINATED ’";: 1: 15: €x1 : PS$²"DFH BOOT": Ÿ 8,8,8,"0:"ªPS$ª",P,R"—1* 1940: 8: ‹ EN²0 § 4700»14™ "TRYI ƒ 150,141,036,003,169,0035 Žƒ 141,037,003,169,000,133S ”ƒ 254,096,032,087,241,133q šƒ 251,134,252,132,253,008 ƒ 201,013,240,017,201,032 ¦ƒ 240,005,024,101,254,133Ë ¬ƒ 254,165,251,166,252,164é ²ƒ 253,040,096,169,013,032 ¸ƒ 210,255,165,Gîƒ 210,255,032,210,255,1733ôƒ 251,003,133,214,076,173=úƒ 003032,087,241,133q šƒ 251,134,252,132,253,008 ƒ 201,013,240,017,201,032 ¦ƒ 240,005,024,101,254,133Ë ¬ƒ 254,165,251,166,252,164é ²ƒ 253,040,096,169,013,032 ¸ƒ 210,255,165, è SAVE "@0:EX.PARTITION",8&ò:\ü"-- AN EXAMPLE PROGRAM USING THE 'PARTITION' --""-- SUBROUTINE CONTAINED IN 'DFH SUBS$79' --"•:Ï"-- TOP OF MEMORY = $7900 TO PROTECT SUBROUTINES --"$‹ Â (65534)²72 § 1080: "-- C64 COMPUTER - ALIZE --"@ˆ: † DA$(20): "-- PARTITIONING SPACE FOR 20 FIELDS --"q’SP²30979: "-- PARTITION ADDRESS = $7903 --"œFT%²0: "-- PARTITIONED FIELD COUNT --"É¦FA$²"DA": "-- PARTITION ARRAY NAME --"Ï°:ûº"-- OPEN DATA FILE & GET DELIMITER --$ "-- NEXT RECORD --" 9: €TITIONING SPACE FOR 20 FIELDS --"q’SP²30979: "-- PARTITION ADDRESS = $7903 --"œFT%²0: "-- PARTITIONED FIELD COUNT --"É¦FA$²"DA": "-- PARTITION ARRAY NAME --"Ï°:ûº"-- OPEN DATA FILE & GET DELIMITER --è SAVE "@0:EX.G.PRINT",8$ò:`ü"- AN EXAMPLE PROGRAM TO FORMAT AND PRINT GENEOLOGY -"”"- FILE DATA PREPARED BY THE 'DFH' PROGRAMS -"š:Ô"-- TOP OF MEMORY = $7900 TO PROTECT SUBROUTINES --"$‹ Â (65534)²72 § 1080: "-- C64 COMPUROGRAM TITLE & INITIALIZATION--"=ˆ: CR$²Ç(13): FT%²0: FA$²"DA"u’RB$²" ’"ªCR$¸œ™ "“";RB$;" G.PRINT 05-19-84 ’";CR$;RB$;ê¦™ " A PROGRAM TO PRINT FAMILY TREE ’"%°™ " (GENOV","DEC"öS1$²" "MHD$(11)²S1$ª"ADDRESS: ": HD$(12)²S1$ª"BORN: "ˆ HD$(13)²S1$ª"OCCUPATION: ": HD$(15)²S1$ª"FATHER: "ÃHD$(16)²S1$ª"MOTHER: ": HD$(17)²S1$ª"DIED: "þHD$(18)²S1$ª"BURIED: ": HD$(20)²S1$ª"MARRI F MAIN PROGRAM ---" d:8 nŸ 4,4: 1720: "--- PAGE HEADING ---"t x: … "DATA FILE NAME ";IL$: Ÿ 8,8,8,"0:"ªIL$ª",S,R" ‚„ 8,FD$: FD$²È(FD$,1): TT²ST: ‰ 1440£ Œ:Í –: ˜ 4,CR$;: NL²NLª1: ‹ NL±58 § 1710â : ‹ TT³±0 § 1760ª„ 8,DA$(0): TT²ST: ž 30979: CD²Å(DA$(2))G´CP%²(CDª.5)10: ‹ CP%¬10³±CD § ˜ 4,HD$(21);: ‰ 1600M¾:uÈ"--- PRINT PRIMARY CODE LINES ---"{Ò:Ü‹ CP%³±10 § 1530½æ˜ 4,CR$;CR$;: NL²NLª2: ‹ NL²±58 § 1710àð˜ 4,DA$(1);" ";DA$(3);: ‰ 1430ú: ‹ CP%±29 214,141,251% ¾ƒ 003,206,251,003,169,000C Äƒ 133,216,169,019,032,210a Êƒ 255,169,018,032,210,255 Ðƒ 169,058,032,210,255,166 Öƒ 254,169,000,133,254,172» Üƒ 151,003,192,087,208,006Ù âƒ 032,205,189,076,235,003÷ èƒ 032,205,221,169,032,032§ CP%²CP%«10: ‰ 1530 :˜ 4,HD$(CP%);K‹ CP%²12 ° CP%²17 ° CP%²18 ° CP%²21 § 1660Q":u,"--- ALLIGN & PRINT ID#'S ---"{6:¯@: ˜ 4,DA$(3);: SP²18ªÃ(DA$(3)): ‹ SP±60 § SP²60ÚJ‹ DA$(4)³±"" § ˜ 4,¦62«SP);"#";DA$(4);åT‰ 1430ë^: -"+.— 52,0: — 53,121: ‰ 1110: "-- PET --"P8: — 55,0: — 56,121: "-- C64 --"VB:L"-- TEST/INSTALL M.L. SUBROUTINES --"«V: ‹ Â(30977)²21 ¯ Â (30980)²30 § 1160Ë`™ " LOADING DFH SUBS$79 ’"çjœ : “ "DFH SUBS$79",8,1ít:~"-- INITI"ÄŸ 9,8,9,"0:TESTFILE,S,R"3Î„ 9,FD$ : FD$²È(FD$,1)9Ø:nâ"-- INPUT, PARTITION & DISPLAY DATA RECORDS --"ƒì: „ 9,DL$: TT²STö™ DL$¶DA$(0)²DL$: ž SP: "-- PARTITION --"å ™ " ";: JJ²1 ¤ FT%: ™ DA$(JJ),: ‚ JJ: ™ ‹ TT²0 § 1260:h"--- PRINT DATE ENTRIES ---" r:D |: ˜ 4,É(DA$(3),2);" ";MO$(Å(Ê(DA$(3),6,2)));q †˜ 4," ";È(DA$(3),4);" ";DA$(4);: ‰ 1430w :™ š"--- PRINT PAGE HEADING ---"Ÿ ¤:Ä ®: JJ²NLª1 ¤ 66: ˜ 4,CR$;: ‚ JJä ¸: ˜ 4,PH$;CR$;CR$;: NL²3: Žê Â: TER --"0.— 52,0: — 53,121: ‰ 1110: "-- PET --"U8: — 55,0: — 56,121: "-- C64 --"[B:†L"-- TEST/INSTALL M.L. SUBROUTINES --"°V: ‹ Â(30977)²21 ¯ Â (30980)²30 § 1160Ð`™ " LOADING DFH SUBS$79 ’"ìjœ : “ "DFH SUBS$79",8,1òt:~"--PNEOLOGY) DATA FILES. ’";CR$;RB$;cº™ " ---- REQUIRES DFH SUBS$79 ---- ’";CR$;RB$;""iÄ:‡Î† DA$(10),MO$(12),HD$(30)¨Ø JJ²0 ¤ 12: ‡ MO$(JJ): ‚ JJØâƒ " ? ","JAN","FEB","MAR","APR","MAY","JUN"ìƒ "JUL","AUG","SEP","OCT","ED: "9 (HD$(21)²S1$ª" ": HD$(23)²S1$ª"CHILDREN: "t 2HD$(25)²S1$ª"STEP ": HD$(26)²S1$ª"ADOPTED: "¨ <PH$²"GENEOLOGY DATA FOR 'STANDAGE' FAMLIES"ªCR$Ü FPH$²PH$ª"£££££££££££££££££££££££££££££££££££££"â P: Z"--- START O ;07.15.84 _@0:DFH.ED.C64-S ;OPT NOLIS .OPT GEN ; ;****************************** ;* DFH EDITOR * ;* JOHN L DARLING * ;* C64 VERSION * ;* BASIC V2.0 * ;****************************** ; ;-- SPECIFI = $A4A2 ;INSERT LINE INTO SOU;RCE RC442 = $A533 ;FIX CHAINING AFTER INS/DEL RC52C = $A613 ;NEXT LINE SEARCH RC572 = $A659 ;SET COLD START PTRS RC5A7 = $A68E ;'RUN' SETUP RC6C4 = $A7AE ;GOTO 'RUN' RC873 = $A96B ;ASCII# TO FIXPT IN $11,12 RCDF8 = $AEFD ;CA = $FFB1 ;SEND IEEE 'LISTEN' RF128 = $FF93 ;SEND IEEE 'LIS SEC ADDR' RFF96 = $FF96 ;*SEND IEEE 'TLK SEC ADDR' RF16F = $FFA8 ;*SEND IEEE 'CHARACTER' RF17F = $FFAB ;SEND IEEE 'UNTALK' RF183 = $FFAE ;SEND IEEE 'UNLISTEN' RF18C = $FFA5 ;IEEE INPUT ADDR RF2A 8 ;SAVE ROUTINE-LESS PARSING RF8E6 = $F8BE ;I/O WAIT RFC7B = $FC93 ;SETUP FOR INPUT RFFC6 = $FFC6 ;SETUP FOR INPUT RFFC9 = $FFC9 ;SETUP FOR OUTPUT RFFCC = $FFCC ;SET I/O DEFAULTS RFFCF = $FFCF ;INPUT IEEE CHAR RFFD2 = $FFD2 ;PRINT AR VALUE RFFE4 = $FFE4 -START OF BASIC PTR Z2A = $2D ;EOB/SOV-END OF BASIC PTR Z2E = $31 ;STRING LENGTH Z30 = $33 ;BOS-BOTTOM OF STRINGS PTR Z34 = $37 ;TOP OF RAM MEM PTR Z40 = $43 ;INPUT VECTOR Z46 = $49 ;FIND/CHANGE CHAR Z52 = $55 ;FUNCTION JMP VECTOR Z5C = $5F ;PTR-A Z5F = ”Ì"--- TEST FOR MORE FILES ---"Ö:.à: 8: ™ "END OF FILE"lê… "MORE FILES TO PRINT Y";KB$: ‹ È(KB$,1)²"Y" § 1400|ô˜ 4: 4: € 4,DA$(3);: SP²18ªÃ(DA$(3)): ‹ SP±60 § SP²60ÚJ‹ DA$(4)³±"" § ˜ 4,¦62«SP);"#";DA$(4);åT‰ 1430ë^: AR Z97 = $C5 ;LAST KEY DEPRESSED Z9D = $93 ;LOAD(0)/VERIFY(1) FLAG Z9E = $C6 ;# OF KBD CHAR IN BUFFR ZA8 = $CD ;CURSOR TIMING FLAG ZB0 = $9A ;CMD DEV# ZC4 = $D1 ;SCREEN PTR ZC9 = $AE ;LOAD END ADDR ZD1 = $B7 ;FILE NAME LENGTH ZD2 = $B8 ;CURRENT LOG FILE#$9000 ;C64 MAIN ENTRY ; ;--- SYS 9*4096 ACTIVATION ENTRY --- ; ENT00 JMP STAR00 ;SET WEDGE ENT01 JMP KILLPG ;PRG-DEACTIVATE ENT02 JMP STAR00 ;RESERVE ENT03 JMP STAR00 ;RESERVE TESBYT .BYT $F3 ;ED-ACTIVE FLAG ; ;------- SET WEDGE -------- ; STAR00 JSR KIL STA BOT ;BOTTOM SCREEN ADDRESS LDA #$08 ;DEFAULT DISK DEV # STA TMPDVN ;DEFAULT DEV # ; ;--- PROTECT TOP OF MEMORY --- ; LDX #ENT00 CPX Z34 ;HIMEM ADDR TYA SBC Z34+1 BCS STAR03 ;HIMEM=OK ; STX Z34 ;HIMEM ADDR STY Z34+1 STAR03 JMP MENU01 ;DISPLAY MENU & EXIT ; ; ;--- CHRGET ENTRY $79 --- ; ENTRY1 STA ZB5 ;SAVE AR STX ZAD ;SAVE XR LDX #$F2 STX TESBYT ;ACT FLAG=ON LDX Z77+1 ;CHECK TEXT BUFFER CPX #>Z200 ;$02XX ? BNE RESTAX ;NO ; LDX Z77 ;$0200 ? BNE RESTAX ;NO ;ED CONSTANTS -- ; COL = $D8 ;-40 COL SCREEN LINE ; ;-- C64 ROM CALLS -- ; RA437 = $A437 ;PRINT ERROR RC377 = $A462 ;RESTORE DATA PTRS RC392 = $A483 ;WARM START W/0'READY' RC399 = $A48C ;IMMED MODE REF CALL RC3AE = $A49F ;TOKENIZE LINE AND INSERT IT RC3B1HECK FOR COMMA RCE03 = $AF08 ;'SYNTAX ERROR' RDB55 = $BC49 ;FIX TO FLT PT RDCD9 = $BDCD ;CONV FIX PT # RDCE9 = $BDDD ;ASCII# TO STRING RE0F9 = $E0F9 ;*ERROR HANDLER RE62E = $EA31 ;IRQ VECTOR RE84C = $D018 ;SCREEN CASE RF0B6 = $FFB4 ;SEND IEEE 'TALK' RF0BE = $FFC3 ;CLOSE CURRENT FILE RF301 = $F6ED ;TEST STOP KEY RF355 = $F4F3 ;INPUT PRG FILE RF40A = $F5AF ;'SEARCHING' RF42E = $F5D2 ;'LOADING' OR 'VERIFYING' RF466 = $F3D5 ;OPEN PRG FILE RF524 = $FFC0 ;OPEN IEEE FILE RF570 = $F715 ;PRINT ERROR RFFD8 = $FFD;GET A CHAR RFFFE = $FFFE ;ROM TEST ; ;-ZERO PAGE REFERENCES (BASIC 2.0)- ; Z05 = $0B ;BASIC BUFFER PTR Z0A = $0A ;ANOTHER L/V FLAG Z0D = $FF ;OUTPUT SUPPRESS FLAG Z11 = $14 ;LINE # BUFFER PTR Z1F = $22 ;# TRANSFER PTR Z21 = $24 ;INDEX PTR Z28 = $2B ;SOB$62 ;FAC Z70 = $73 ;CHRGET ENTRY Z76 = $79 ;CHRGOT ENTRY Z77 = $7A ;BUFFER PTR Z79 = $7C ;WEDGE ENTRY Z7C = $7F ;MODE INDICATOR Z80 = $83 ;TEMP Z82 = $85 ;TEMP PTR Z84 = $87 ;*TEMP PTR Z86 = $89 ;*TEMP PTR Z90 = $0314 ;IRQ VECTOR Z96 = $90 ;'ST' STATUS V TSX ;TEST IF $B40D(4.0)CALL LDA Z100+2,X ;OR RC399 (3.0) CMP #>RC399 ;WEDGE CALL REF BEQ CKLIST ;YES-IMMED MODE BNE RESTAX ;NO ; RESTYR LDY ZB6 ;RESTORE YR RESTAX LDX ZAD ;RESTORE XR LDA ZB5 ;RESTORE AR CMP #$3A ;CHRGET # TEST BCC ENTRY2 ;A # R ZD3 = $B9 ;CURRENT SEC-ADR ZD4 = $BA ;CURRENT DEV# ZDA = $BB ;FILE NAME ADDR-L,H ZFB = $AE ;ML-ADDR-L,H ; ;WORKING RAM REFERENCES (BASIC 2.0) ; Z100 = $0100 ;STACK REF Z200 = $0200 ;BASIC INPUT BUFFER (80 MAX) Z26E = $0276 ;KEYBOARD BUFFER (10 MAX) ; *=L01 ;REMOVE ALL WEDGES ; LDX #OLDZ70-TABL01 ;SET NEW WEDGE $79-$87 STAR01 LDA TABL01,X STA Z79,X STX Z0D ;SUPPRESS FLAG OFF DEX BPL STAR01 ; LDA ZC4+1 ;SCREEN ADDR-HI AND #$FC ;NORMALLY $04 STA TOP ;CURRENT TOP OF SCREEN ORA #$03 ;NORMALLY $07 3 ;YES ; IRQV02 STA IRQ000 ;NEW KEY LDA #$10 STA IRQ001 ;TIMER 1 IRQJMP JMP RE62E ;REMAINDER OF IRQ ; IRQV03 LDA Z90+1 CMP #>RE62E ;ORIG IRQ ? BEQ IRQJMP ;YES ; LDA IRQ001 ;TIMER 1 BEQ IRQV04 ;RAN OUT ; DEC IRQ001 BNE IRQJMP IRQV04 DEC IRQ002 ;TI NEXT INSTR APPEN0 LDA #'&' STA ZB3 ;DISK OPERATION CMP #$5D ;VERIFY ? BNE DISOP1 ;NO ; LDA #$01 ;VERIFY FLAG .BYT $2C ;SKIP NEXT INSTR DISOP1 LDA #$00 ;LOAD FLAG STA Z9D STA $0A ;2ND L/V FLAG JSR DPARS1 ;GET INPUT PARAM LDY ZD1 ;LEN>0 ? BNE DI #$60 JSR OPEN01 ;OPEN FILE JSR INCHAR ;BRK IF NOT THERE JSR RFFCC ;DEFAULT I/O LDA ZD2 ;FILE # JSR RF2AE ;CLOSE IT DISOPD JSR Z70 ;NEXT CHAR CMP #',' BNE DISOPG ;NOT ',' ; LDA ZB3 CMP #'^' ;LOAD/RUN ? BEQ DISOPH ;SYNTAX ERROR ; CMP #'&' ;AP #$00 STA ZD2 ;LOG FILE 0 LDA #$60 STA ZD3 ;SEC ADDR JSR RF40A ;SEARCH MSG JSR RF466 ;OPEN LDA ZD4 ;DEV# JSR RF0B6 ;SEND TLK LDA ZD3 JSR RFF96 ;SEND TLK SEC ADDR JSR RF18C ;INPUT BYTE STA ZFB ;ADDR-L JSR RF18C STA ZFB+1 ;ADDR-H LDA Z80 BNE END ; SEC ;START ADDR=EOB-2 LDA Z2A SBC #$02 STA ZFB LDA Z2A+1 SBC #$00 STA ZFB+1 JSR DISADR ;DISPLAY ADDR LDX #APPMSG-MES00 LDY #HEXMSG-APPMSG JSR PMESS ;'APPENDING' JMP DISOPN ; DISOPL JSR DISADR ;DISPLAY ADR JSR RF42E ;LOAD/VER MSG DISOPNINT ERROR ; DISOPF LDA #$0D ;RET JSR RFFD2 LDA Z80 ;REL LOAD BNE DISOP8 ;NO...EOB SAME ; LDA ZC9 ;FIX END OF BASIC STA Z2A LDA ZC9+1 STA Z2A+1 DISOP8 JSR RC572 ;FIX POINTERS JSR RC442 ;FIX CHAINING LDA ZB3 CMP #'^' BEQ DISOP6 ;YES...LOAD/RUN ;TS ; ;--- CHRGET ENTRY $7D --- ; ENTRY2 CMP #$20 ;IGNORE SPACES BEQ CHRENT ;NEXT CHAR ; JMP OLDZ81 ;FINISH CHRGOT TEST ; ;--- CHECK FOR BATPRO COMMAND --- ; CKLIST JSR RESTAX ;GET NEXT CHAR BCS CKLIS1 ;NOT A # ; JMP NLIN01 ;# -> INSTALL LINE ; CKLIS1IS4 INX LDA TABL02-1,X BPL CKLIS4 ;MOVE TO JMPTABLE ADDR ; LDA TABL02,X BNE CKLIS2 ;TRY ANOTHER COMMAND BEQ RESTYR ;END OF LIST EXIT ; CKLIS5 INX ;A MATCH INY BNE CKLIS3 ;TRY ANOTHER CHAR ; CKLIS6 STY Z77 ;SAVE YR LDA Z05 ;UPDATED XR ASL A TAX TINE --- ; IRQVEC LDA Z100+5,X CMP #RF8E6 ;WAIT ? BNE IRQV01 ;NO... ; JSR RFC7B ;INIT I/O IRQV01 LDA Z97 ;KEY DEPRESSED CMP #255 ;ANY KEY ? BEQ IRQV02 ;NO... ; CMP IRQ000 ;SAME KEY ? BEQ IRQV0 RFFD2 ;DISPLAY FILENAME JSR Z70 ;PARSE COMMAND CMP #$00 ;EOL ONLY BEQ PRSE06 ;':' OR EOL ; CMP #',' ;DELIMITER ? BNE PRSE05 ;NO ': ,' OR EOL ; JSR RCDF8 ;VERIFY COMMA ($F516 ALSO) PRSE06 JSR Z76 ;REGET CHAR JSR RNGE02 ;SET LINE RANGE LDA #$0D JMER 2 BNE IRQJMP ; LDA #$04 STA IRQ002 ;TIMER 2 LDA #$00 STA Z97 ;NO-KEY DEPRESSED BEQ IRQJMP ;ALWAYS ; ; ;--- LOAD OR VERIFY -- ; LOAD00 LDA #'/' .BYT $2C ;SKIP NEXT INSTR LRUN00 LDA #'^' .BYT $2C ;SKIP NEXT INSTR VERF00 LDA #']' .BYT $2C ;SKIPSOP2 ;OK ; JMP RCE03 ;SYNTAX ERROR ; DISOP2 LDA Z7C BPL DISOP3 ;BASIC PRG ; LDA ZB3 CMP #'^' ;LOAD-RUN ? BNE DISOP9 ;NO...OK ; DISOPB JMP OOPS01 ;OOPS-ERROR ; DISOP9 JMP GETF01 ;TEXT ; ; ;--- LOAD/VERIFY/APPEND PRG FILES --- ; DISOP3 LDAPEND ? BEQ DISOPH ;SYNTAX ERROR ; JSR Z70 ;IS NEXT CHR A # CMP #'$' ;HEX ? BNE DISOPM ;NO...ABS LOAD ; JSR HEXBYT ;START ADDR IN Z86 BCS DISOPM ;OK-SPECIFIED LOAD ; DISOPH JMP RCE03 ;SYNTAX ERROR ; DISOPG CMP #$00 BNE DISOPD ;NOT EOL ; DISOPM LDA DISOPJ ;NOT REL LOAD ; LDX Z28 ;REL LOAD...SOB LDY Z28+1 BNE DISOPK ;ALWAYS ; DISOPJ CMP #'$' ;SPECIFIC LOAD ? BNE DISOPY ;NO..ABS LOAD ; LDX Z86 ;SPECIFIED START ADR LDY Z86+1 DISOPK STX ZFB STY ZFB+1 DISOPY LDA ZB3 CMP #'&' BNE DISOPL ;NOT APP JSR RF355 ;LOAD FILE JSR DISADR ;DISPLAY ADR JSR HEXOST ;PRINT 'ST=XX' LDA Z96 ;ST AND #$BF BEQ DISOPF ;ST=OK ; DISOP7 LDA Z9D BNE DISOP4 ;VERIFY ERROR ; LDX #$1D ;LOAD ERROR .BYT $2C ;SKIP NEXT INSTR DISOP4 LDX #$1C ;VERIFY ERROR JMP RA437 ;PR JMP MODED1 ;DISPLAY MODE ; DISOP6 JSR RC5A7 ;SETUP-RUN JMP RC6C4 ;EXECUTE RUN ; ; ;--- PARSE SAVE FILENAME --- ; PRSE02 INC ZD1 INC ZD1 ;NEW FILE NAME LENGTH LDX #SAVMSG-MES00 LDY #POSMSG-SAVMSG JSR PMESS ;'SAVING ' JSR Z76 ;REGET CHAR PRSE05 JSR STY ZB6 ;SAVE YR LDX #$00 STX Z80+1 ;QUOTE MODE FLAG STX Z05 ;INIT INDEX CTR CKLIS2 LDY Z77 CKLIS3 LDA Z200,Y ;2ND - 3RD CHR SCAN EOR TABL02,X BEQ CKLIS5 ;A MATCH ; CMP #$80 ;FINAL MATCH TEST BEQ CKLIS6 ;OK INSTALL IT ; INC Z05 ;UPDATE INDEX CKL LDA JMPTBL+1,X ;JMP ADDR -> STACK PHA LDA JMPTBL,X PHA JSR RESTYR ;RESTORE Y, X, A CHRENT JMP Z70 ;NEXT CHAR ; ; ;--- RESTORE NORMAL IRQ --- ; IRQNRM SEI LDA #RE62E STA Z90+1 CLI RTS ; ;--- NEW IRQ ROU SR RFFD2 LDA #$6E JMP OPEN00 ;OPEN THE FILE ; ; ;-- SEND DISK COMMAND -- ; DISC00 LDA TMPDVN STA ZD4 ;DEV # JSR RF0BA ;SEND LISTEN LDA #$6F ;SEC ADDR 15 STA ZD3 JSR RF128 ;SEND LIS SEC ADDR LDY #$00 DISC01 LDA (Z77),Y BEQ DISC02 ;EOL ; JSR RF16JSR RFF96 ;SEND TLK SEC ADDR JSR RF18C ;READ 1ST CHAR STA Z5F JSR RF18C ;READ 2ND CHAR STA Z5F+1 CMP #$30 ;2ND CHAR=0 ? BNE DCERR2 ;NO CMP Z5F ;1ST CHAR=0 ? BEQ DCERR3 ;YES..BOTH ZERO ; DCERR2 JSR SUPOFF ;PRINT ERROR DCERR3 LDA Z5F JSR RCA45X ;DRN IT OFF DCERR6 RTS ; ;-- DR PARAMETER TEST ON SAVE -- ; SAVTST LDY #$00 LDA (Z77),Y CMP #'@' ;REPLACE BNE SAVT01 ;NO ; INY LDA (Z77),Y SAVT01 AND #$FE CMP #$30 ;DR 0 OR 1 ? BEQ SAVT02 ;YES ; SAVT03 JMP RCE03 ;SYNTAX ERROR ; SAVT02 JMP DPARS1 ;PA ;EOB LDY Z2A+1 STX Z86 ;SAVE END ADDR STY Z86+1 LDA TMPDVN STA ZD4 SAVE14 JSR Z70 ;SCAN TO END OF NAME CMP #$00 ;EOL ? BEQ SAVE05 ;BASIC SAVE ; CMP #',' ;END OF NAME ? BNE SAVE14 ;NO ; JSR Z70 CMP #'$' ;ML SAVE ? BNE SAVT03 ;NO...ERROR(FUTURSR PLA JSR RESTAX ;RESTORE REG JSR RC873 ;GET LINE # INTO Z11 BEQ NLIN04 ;LINE # ONLY ; NLIN05 LDA Z82 ;IN AUTO MODE ? ORA Z82+1 BEQ NLIN04 ;NO ; LDA Z11 ;LINE # FOR NEXT LINE CLC ADC Z82 STA Z5F+1 LDA Z11+1 ADC Z82+1 STA Z5F LDX #$90 ;CONV;#CHRS IN KBD BUFF NLIN04 CMP #$3A ;EOL ? BEQ NLIN05 ;':' ; LDX Z7C ;TEXT MODE ? BMI CMPK01 ;YES ; JMP RC3AE ;TOKENIZE BASIC LINE ; ;--- SQUISH TEXT LINE --- ; CMPK01 LDX #$FF LDY #$00 CMPK02 INX LDA Z200,X ;SKIP SPACES CMP #$20 BEQ CMPK02 BNE CEEP IT CMPK06 LDA Z200,X ;COMPRESS BUFF BEQ CMPK07 ;END OF LINE ; STA Z200,Y INX INY BNE CMPK06 ;BRANCH ALWAYS ; CMPK07 STA Z200,Y ;FIX FAKE LINK INY INY STA Z200,Y INY INY INY JMP RC3B1 ;INSTALL LINE ; ; ;--- ERASE SCREEN UP OR DOWN --- ;FROOWN ? BMI ERAS02 ;DWN ; LDA #$FF ;-1 JSR Z84MAR ;Z84=Z84-AR LDX #$01 ;SWAP Z86 & Z84 ERAS04 LDA Z84,X PHA LDA Z86,X STA Z84,X PLA STA Z86,X DEX BPL ERAS04 BMI ERAS01 ;ALWAYS ; ERAS02 LDA #COL ;-40 JSR Z84MAR ;Z84=Z84-AR ERAS01 LDX #$00 LDA BCC ASC104 ;ERROR ; STA TMPYR ;MS JSR ASC002 ;2 CHAR CONV TAX ;LS LDA TMPYR ;MS ASC104 RTS ;C=1 ON EXIT IF OK ; ; TMPAR .BYT $FF ;TEMP AR TMPXR .BYT $FF ;TEMP XR TMPYR .BYT $FF ;TEMP XR TMPFLG .BYT $FF ;LOAD/VER FLAG TMPCMD .BYT $FF ;OLD CMD DEV TMP·FIL .BYT $FF ;OLD CMD FIL # TOP .BYT $04 ;TOP OF SCREEN BOT .BYT $07 ;BOT OF SCREEN ; ZB3 = TMPFLG ZB5 = TMPAR ZB6 = TMPYR ZAD = TMPXR ZBA = TMPCMD ZBB = TMPFIL ; .FIL DFH.ED.COM-S1 ; ;--- ASCII ADDR CONVERSION (X,A) --- ; ASC004 JSR ASC002 ;2 CHAR CONV F ;SEND CHAR INY BNE DISC01 ;ALWAYS ; DISC02 JSR RF183 ;'UNLISTEN' ; ;-- READ ERROR CHANNEL -- ; DCERR0 JSR SUPR00 ;TOGGLE SUPRESS FLAG ; ;-- PRINT ALL ERROR CODES -- ; LDA TMPDVN STA ZD4 ;DEV # JSR RF0B6 ;SEND 'TALK' LDA #$6F STA ZD3 ;ERR-CH 15 ISP 1ST MSG CHAR LDA Z5F+1 DCERR4 JSR RCA45X ;ERR MSG CMP #$0D ;RET ? BEQ DCERR5 ;YES... END OF MESSAGE ; JSR RF18C ;NEXT CHAR BNE DCERR4 ;ALWAYS ; DCERR5 JSR RF17F ;SEND 'UNTALK' SUPOFF BIT Z0D ;SUPPRESS FLAG OFF ? BPL DCERR6 ;NO ; JSR SUPR00 ;TURSE FILENAME ; ; ;-- SAVE PRG OR TEXT FILES -- ; SAVE00 JSR SAVTST ;SAVE PARAM ; LDA Z7C ;TEXT ? BPL SAVE04 ;NO... ; SAVE02 JMP PUTF01 ;SAVE TEXT ; ; ;--- SAVE PRG FILES --- ; SAVE04 LDA Z28 ;SOB STA Z84 ;SAVE START ADDR LDA Z28+1 STA Z84+1 LDX Z2AE LINE SAVE) ; JSR HEXADR ;START ADDR BCC SAVT03 ;ERROR ; SAVE05 LDA #$F3 ;DEACT FLAG STA TESBYT LDA #Z84 ;START ADDR LDX Z86 LDY Z86+1 JSR RFFD8 ;SAVE JMP DISBRK ;READ ERROR CH EXIT ; ; ;-- INSTALL A NEW NUMBERED LINE -- ; NLIN01 PLA ;BACKUP-1 JERT TO DEC SEC JSR RDB55 ;FLOAT IT JSR RDCE9 ;MAKE ASCII # LDX #$00 ;PUT ASCII # IN KEYB NLIN02 LDA Z100+1,X ;NO START SPACE BEQ NLIN03 ;DONE ; STA Z26E+1,X INX BNE NLIN02 ;BRANCH ALWAYS ; NLIN03 LDA #$20 ;EXTRA SPACE STA Z26E+1,X INX STX Z9E MPK04 ;(=JMP) ; CMPK03 INX CMPK04 LDA Z200,X ;GET CHR CMP #$30 ;IS CHR < '0' ? BCC CMPK05 ;YES... END OF LINE # ; CMP #$3A ;IS CHR > '9' ? BCC CMPK03 ;NO...NEXT LINE # CHR ; CMPK05 LDA Z200,X ;NEXT CHAR CMP #$20 ;SPACE ? BNE CMPK06 ;NO... ; INX ;KM THE PRESENT CURSOR POSITION ;SYNTAX : ;EU ; ;ED ; WIPU01 LDX TOP ;TOP=$0400(NORMAL) LDA #$00 BEQ ERAS00 ; WIPD01 LDX BOT ;BOT=$07FF(NORMAL) LDA #$FF ERAS00 STA Z86 STX Z86+1 LDA ZC4 ;Z84=ZC4 STA Z84 LDA ZC4+1 STA Z84+1 BIT Z86 ;UP OR D#$20 ;SPACE STA (Z84,X) LDA #$01 JSR Z84PAR ;Z84=Z84+1 LDA Z86+1 LDY Z86 CPY Z84 SBC Z84+1 BCS ERAS01 ;Z86 >= Z84 ; RC392X PLA ;Z86 < Z84 PLA JMP RC392 ;WARM START & EXIT ; ; ;--- ASCII ADDR CONVERSION (X,A) --- ; ASC004 JSR ASC002 ;2 CHAR CONV ;07.15.84 _@0:DFH.ED.PET-S ;OPT NOLIS .OPT GEN ; ;****************************** ;* DFH EDITOR * ;* JOHN L DARLING * ;* PET VERSION * ;* BASIC 2.0/4.0-(40/80)COL * ;****************************** ; TOP = $80 ;SETUP FOR INPUT RFFC9 = $FFC9 ;SETUP FOR OUTPUT RFFCC = $FFCC ;SET I/O DEFAULTS RFFCF = $FFCF ;INPUT IEEE CHAR RFFD2 = $FFD2 ;PRINT AR VALUE RFFE4 = $FFE4 ;GET A CHAR RFFFE = $FFFE ;ROM TEST ; ;-ZERO PAGE REFERENCES (BASIC 2.0) ; Z05 = $05 ;BASIC BUFFER ;TOP OF RAM MEM PTR Z40 = $40 ;INPUT VECTOR Z46 = $46 ;FIND/CHANGE CHAR Z52 = $52 ;FUNCTION JMP VECTOR Z5C = $5C ;PTR-A Z5F = $5F ;FAC Z70 = $70 ;CHRGET ENTRY Z76 = $76 ;CHRGOT ENTRY Z77 = $77 ;BUFFER PTR Z79 = $79 ;WEDGE ENTRY Z7C = $7C ;MODE INDICATOR ING ZAD = $AD ;TMPXR ZB0 = $B0 ;CMD DEV# ZB3 = $B3 ;/,&,] FLAG ZB5 = $B5 ;TMPAR AND ;FC FLAG ZB6 = $B6 ;TMPYR AND ;FC CNTR ZBA = $BA ;TEMP $B0 ZBB = $BB ;TEMP $D2 ZC4 = $C4 ;SCREEN PTR ZC9 = $C9 ;LOAD END ADDR ZD1 = $D1 ;FILE NAME LENGTH ZD2 = $D2 ;CURRE*=$7000 ;MAIN ENTRY ; ;--- SYS 7*4096 ACTIVATION ENTRY --- ; ENT00 JMP STAR00 ;SET WEDGE ENT01 JMP KILLPG ;PRG-DEACTIVATE ENT02 JMP STAR00 ;RESERVE U1 ENT03 JMP STAR00 ;RESERVE U2 TESBYT .BYT $F3; ACTIVATE TEST ; ;------- SET WEDGE -------- ; STAR00 LDX OT LDA #COL2 ;80 COL STA COL STAR04 JSR KILL01 ;REMOVE ALL WEDGES ; LDX #OLDZ70-TABL01 ;SET NEW WEDGE $79-$87 STAR01 LDA TABL01,X STA Z79,X DEX BPL STAR01 ;NOT DONE ; LDA #$08 ;DEFAULT DEV # STA TMPDVN ;DEFAULT DEV # ; ;---- PROTECT TOP OF MEMORYR LDX #$F2 ;ACTIV FLAG STX TESBYT LDX Z77+1 ;CHECK TEXT BUFFER CPX #>Z200 ;$02XX ? BNE RESTAX ;NO ; LDX Z77 ;$0200 ? BNE RESTAX ;NO ; TSX ;TEST IF $B40D(4.0)CALL LDA Z100+2,X ;OR $C399 (2.0) CMP RC399+2 ;$A48C=C64 REF BEQ CKLIST ;YES-IMMED MOD ;--- CHECK FOR BATPRO COMMAND --- ; CKLIST JSR RESTAX ;GET NEXT CHAR BCS CKLIS1 ;NOT A # ; JMP NEWLIN ;# -> INSTALL LINE ; CKLIS1 STY ZB6 ;SAVE YR LDX #$00 STX Z80+1 ;QUOTE MODE FLAG STX Z05 ;INIT INDEX CTR CKLIS2 LDY Z77 CKLIS3 LDA Z200,Y ;2ND - 3 ND OF LIST EXIT ; CKLIS5 INX ;A MATCH INY BNE CKLIS3 ;TRY ANOTHER CHAR ; CKLIS6 STY Z77 ;SAVE YR LDA Z05 ;UPDATED XR ASL A TAX LDA JMPTBL+1,X ;JMP ADDR -> STACK PHA LDA JMPTBL,X PHA JSR RESTYR ;RESTORE Y, X, A CHRENT JMP Z70 ;NEXT CHAR ; ; ;--- RESTORE NORMAL IRQ --- ; IRQNRM SEI LDA RE62E+1 ;ORIGINAL IRQ VECTOR STA Z90 LDA RE62E+2 STA Z90+1 CLI RTS ; ;--- NEW IRQ ROUTINE --- ; IRQVEC LDA Z100+5,X CMP RF8E6+1 ;WAIT ? BNE IRQV01 ;NO... LDA Z100+6,X CMP RF8E6+2 ;WAIT ? BNE IRQV01 ;NO.PET TOP OF SCRN $8000 BOT1 = $83 ;$83FF(40 COL) BOT2 = $87 ;$87FF(80 COL) COL1 = $D8 ;-40 COL SCREEN LINE COL2 = $B0 ;-80 COL SCREEN LINE ; R83FF = $83FF ;BOT OF 40 COL SCR R87FF = $87FF ;BOT OF 80 COL SCR RE84C = $E84C ;59468 SCREEN CASE RFFC6 = $FFC6 ;PTR Z0D = $0D ;OUTPUT SUPPRESS FLAG Z11 = $11 ;LINE # BUFFER PTR Z1F = $1F ;# TRANSFER PTR Z21 = $21 ;INDEX PTR Z28 = $28 ;SOB-START OF BASIC PTR Z2A = $2A ;EOB/SOV-END OF BASIC PTR Z2E = $2E ;STRING LENGTH Z30 = $30 ;BOS-BOTTOM OF STRINGS PTR Z34 = $34 Z80 = $80 ;TEMP FLAGS Z82 = $82 ;TEMP PTR-AUTO INC Z84 = $84 ;TEMP PTR Z86 = $86 ;TEMP PTR Z90 = $90 ;IRQ-VECTOR Z96 = $96 ;'ST' STATUS VAR Z97 = $97 ;DEPRESSED KEY Z9D = $9D ;LOAD(0)/VERIFY(1) FLAG Z9E = $9E ;# OF KBD CHAR IN BUFFR ZA8 = $A8 ;CURSOR-TIMNT LOG FILE# ZD3 = $D3 ;CURRENT SEC-ADR ZD4 = $D4 ;CURRENT DEV# ZDA = $DA ;FILE NAME ADDR-L,H ZFB = $FB ;SAVE END ADDR ; ;WORKING RAM REFERENCES ; Z100 = $0100 ;STACK REF Z200 = $0200 ;BASIC INPUT BUFFER (80 MAX) Z26E = $026E ;KEYBOARD BUFFER (10 MAX) ; RFFFE CPX #$1B ;2.0 ROM ? BEQ STAR04 ;NO CHANGE ; LDX #EN40-RC377X ;4.0 ROM STAR05 LDA RC377X,X ;MOVE JMP TABLE STA RC377,X DEX BNE STAR05 ;NOT DONE ; STX R87FF ;SCREEN CPX R83FF ;40 COL ? BEQ STAR04 ;YES... ; LDA #BOT2 ;$8377=BOT SCREEN STA B ---- ; LDX #ENT00 CPX Z34 ;HIMEM ADDR TYA SBC Z34+1 BCS STAR03 ;HIMEM=OK ; STX Z34 ;HIMEM ADDR STY Z34+1 STAR03 JMP MENU01 ;DISPLAY MENU EXIT ; ; ;---- CHRGET ENTRY $0079 ---- ; ENTRY1 STA ZB5 ;SAVE AR STX ZAD ;SAVE XE BNE RESTAX ;NO ; RESTYR LDY ZB6 ;RESTORE YR RESTAX LDX ZAD ; XR LDA ZB5 ; AR CMP #$3A ;CHRGET # TEST BCC ENTRY2 RTS ; ;---CHRGET ENTRY $7D--- ; ENTRY2 CMP #$20 ;IGNORE SPACES BEQ CHRENT ;NEXT CHAR ; JMP OLDZ81 ;FINISH CHRGOT TEST ;RD CHR SCAN EOR TABL02,X BEQ CKLIS5 ;A MATCH ; CMP #$80 ;FINAL MATCH TEST BEQ CKLIS6 ;OK INSTALL IT ; INC Z05 ;UPDATE INDEX CKLIS4 INX LDA TABL02-1,X BPL CKLIS4 ;MOVE TO JMPTABLE ADDR ; LDA TABL02,X BNE CKLIS2 ;TRY ANOTHER COMMAND BEQ RESTYR ;E TA ZFB+1 LDA Z80 ;TYPE LOAD BNE DISOPJ ;NOT REL LOAD ; LDX Z28 ;SOB LDY Z28+1 BNE DISOPK ;ALWAYS ; DISOPJ CMP #'$' BNE DISOPY ;ABS LOAD ; LDX Z86 ;SPECIFIED ADDR LDY Z86+1 DISOPK STX ZFB STY ZFB+1 DISOPY LDA ZB3 CMP #'&' BNE DISOPL ;NOT APPEND.. ; JSR RFC7B ;INIT I/O IRQV01 LDA Z97 ;KEY DEPRESSED CMP #255 ;ANY KEY ? BEQ IRQV02 ;NO... ; CMP IRQ000 ;SAME KEY ? BEQ IRQV03 ;YES ; IRQV02 STA IRQ000 ;NEW KEY LDA #$10 STA IRQ001 ;TIMER 1 IRQJMP JMP RE62E ;REMAINDER OF IRQ ; IRQV03 LDA Z90+1 N JSR RF355 ;LOAD FILE JSR DISADR ;DISPLAY ADDR JSR HEXOST ;PRINT 'ST=XX' LDA Z96 ;ST AND #$BF BEQ DISOPF ;ST=OK ; DISOP7 LDA Z9D BNE DISOP4 ;VERIFY ERROR ; LDY #$00 STY Z9E ;KBD CHAR CNT=0 LDY #$60 ;LOAD ERROR .BYT $2C ;SKIP NEXT INSTR DISOP4 AYS... ; ; ;--- LOAD OR VERIFY -- ; LOAD00 LDA #'/' .BYT $2C ;SKIP NEXT INSTR LRUN00 LDA #'^' .BYT $2C ;SKIP NEXT INSTR VERF00 LDA #']' .BYT $2C ;SKIP NEXT INSTR APPEN0 LDA #'&' STA ZB3 ;DISK OPERATION CMP #$5D ;VERIFY ? BNE DISOP1 ;NO ; LDA #$01 BEQ DISOP6 ;YES...LOAD/RUN ; JMP MODED1 ;DISPLAY MODE ; DISOP6 JSR RC5A7 ;SETUP-RUN JMP RC6C4 ;EXECUTE RUN ; ; ;--- PARSE SAVE FILENAME --- ; PRSE02 INC ZD1 INC ZD1 ;NEW FILE NAME LENGTH JSR Z76 PRSE05 JSR RFFD2 ;DISPLAY FILENAME JSR Z70 ;PARSE CO...OK ; DISOPB JMP OOPS01 ;OOPS-ERROR ; DISOP9 JMP GETF01 ;TEXT ; ;--- LOAD/VERIFY/APPEND PRG FILES --- ; DISOP3 LDA #$60 JSR OPEN01 ;OPEN FILE JSR INCHAR ;TEST IF THERE JSR RFFCC ;DEFAULT I/O LDA ZD2 ;FILE # JSR RF2AE ;CLOSE IT DISOPD JSR Z70 ;NEEN THE FILE ; ;-- SEND DISK COMMAND -- ; DISC00 LDA TMPDVN STA ZD4 ;DEV # LDA #$6F ;SEC ADDR 15 STA ZD3 JSR RF0BA ;SEND 'LISTEN' LDA ZD3 JSR RF128 ;SEND SEC ADDR LDY #$00 DISC01 LDA (Z77),Y BEQ DISC02 ;EOL ; JSR RF16F ;SEND CHAR INY BNE DISC01JMP RCE03 ;SYNTAX ERROR ; DISOPG CMP #$00 BNE DISOPD ;NOT EOL ; DISOPM LDA #$60 STA ZD3 JSR RF40A ;SEARCHING JSR RF466 ;OPEN JSR RF0B6 ;SEND DEV TLK LDA ZD3 ;SEC ADR JSR RF128 ;SEND SEC ADR JSR RF18C ;GET ADDR-L STA ZFB JSR RF18C ;GET ADDR-H S F18C ;READ 1ST CHAR STA Z5F JSR RF18C ;READ 2ND CHAR STA Z5F+1 CMP #$30 ;2ND CHAR=0 ? BNE DCERR2 ;NO CMP Z5F ;1ST CHAR=0 ? BEQ DCERR3 ;YES..BOTH ZERO ; DCERR2 JSR SUPOFF ;SUPPRESS FLAG=OFF DCERR3 LDA Z5F JSR RCA45X ;PRINT IF NO SUPRESS LDA Z5F+1 DCERR4 JSR RCA45X CMP #$0D ;RET ? BEQ DCERR5 ;END OF MESSAGE ; JSR RF18C ;NEXT CHAR BNE DCERR4 ;ALWAYS DCERR5 JSR RF17F ;SEND 'UNTALK' SUPOFF BIT Z0D ;SUPPRESS FLAG OFF ? BPL DCERR6 ;NO ; JSR SUPR00 ;TURN IT OFF DCERR6 RTS ; ; ;-- DR PARAMETER TES ; SEC ;FIX APPEND ADDR LDA Z2A SBC #$02 STA ZFB ;LOAD START ADDR LDA Z2A+1 SBC #$00 STA ZFB+1 JSR DISADR ;DISPLAY ADDR LDX #APPMSG-MES00 LDY #HEXMSG-APPMSG JSR PMESS JMP DISOPN ; DISOPL JSR DISADR ;DISPLAY ADDR JSR RF42E ;LOAD/VER MSG DISOPCMP RE62E+2 ;ORIG IRQ ? BEQ IRQJMP ;YES ; LDA IRQ001 ;TIMER 1 BEQ IRQV04 ;RAN OUT ; DEC IRQ001 BNE IRQJMP IRQV04 DEC IRQ002 ;TIMER 2 BNE IRQJMP ; LDA #$04 STA IRQ002 ;TIMER 2 LDA #$00 STA Z97 ;NO-KEY DEPRESSED LDA #$02 STA ZA8 BNE IRQJMP ALWLDY #$6E ;VERIFY ERROR JMP RF570 ;PRINT ERROR ; DISOPF LDA #$0D ;RET JSR RFFD2 LDA Z80 ;REL LOAD ? BNE DISOP8 ;NO.. ; LDA ZC9 ;FIX END OF BASIC STA Z2A LDA ZC9+1 STA Z2A+1 DISOP8 JSR RC572 ;FIX POINTERS JSR RC442 ;FIX CHAINING LDA ZB3 CMP #'^';VERIFY FLAG .BYT $2C ;SKIP NEXT INSTR DISOP1 LDA #$00 ;LOAD FLAG STA Z9D JSR DPARS1 ;GET INPUT PARAM LDY ZD1 ;LEN>0 ? BNE DISOP2 ;OK ; JMP RCE03 ;SYNTAX ERROR ; DISOP2 LDA Z7C BPL DISOP3 ;BASIC PRG ; LDA ZB3 CMP #'^' ;LOAD-RUN ? BNE DISOP9 ;NOMMAND CMP #$00 ;EOL ONLY BEQ PRSE06 ;':' OR EOL ; CMP #',' ;DELIMITER ? BNE PRSE05 ;NO ': ,' OR EOL ; JSR RCDF8 ;VERIFY COMMA ($F516 ALSO) PRSE06 JSR Z76 ;REGET CHAR JSR RNGE02 ;SET LINE RANGE LDA #$0D ;RET JSR RFFD2 LDA #$6E ;14 JMP OPEN00 ;OPXT CHAR CMP #',' BNE DISOPG ;NO... ; LDA ZB3 CMP #'^' BEQ DISOPH ;ERROR ; CMP #'&' BEQ DISOPH ;ERROR ; JSR Z70 ;NEXT CHAR CMP #'$' ;HEX LOAD ? BNE DISOPM ;NO...ABS LOAD ; JSR HEXBYT ;START ADDR IN Z86 BCS DISOPM ;OK...SPECIFIED LOAD ; DISOPH ;ALWAYS ; DISC02 JSR RF183 ;'UNLISTEN' ; ;-- READ ERROR CHANNEL -- ; DCERR0 JSR SUPR00 ;TOGGLE SUPRESS FLAG ;-- PRINT ALL ERROR CODES -- ; LDA TMPDVN STA ZD4 ;DEV # JSR RF0B6 ;SEND 'TALK' LDA #$6F STA ZD3 ;ERR-CH 15 JSR RF128 ;SEND SEC ADDR JSR R DA Z200,X ;GET CHR CMP #$30 ;IS CHR < '0' ? BCC CMPK05 ;YES... END OF LINE # ; CMP #$3A ;IS CHR > '9' ? BCC CMPK03 ;NO...NEXT LINE # CHR ; CMPK05 LDA Z200,X ;NEXT CHAR CMP #$20 ;SPACE ? BNE CMPK06 ;NO... ; INX ;KEEP IT CMPK06 LDA Z200,X ;COMPRESS T ON SAVE -- ; SAVTST LDY #$00 LDA (Z77),Y CMP #'@' ;REPLACE BNE SAVT01 ;NO ; INY LDA (Z77),Y SAVT01 AND #$FE CMP #$30 ;DR 0 OR 1 ? BEQ SAVT02 ;YES ; SAVT03 JMP RCE03 ;SYNTAX ERROR ; SAVT02 JSR DPARS1 ;PARSE FILENAME LDX #SAVMSG-MES00 LDY #POSMS AX : ;EU ; ;ED ; WIPU01 LDX #TOP ;$8000 LDA #$00 BEQ ERAS00 ; WIPD01 LDX BOT ;$83FF OR $87FF LDA #$FF ERAS00 STA Z86 STX Z86+1 LDA ZC4 ;Z84=ZC4 STA Z84 LDA ZC4+1 STA Z84+1 BIT Z86 ;UP OR DOWN ? BMI ERAS02 ;DWN ; LDA #$FF ;-1 JSR Z84MA R Z70 ;NEXT CHAR CMP #$00 BEQ SAVE05 ;BASIC SAVE ; CMP #',' ;END OF NAME ? BNE SAVE14 ;NO... ; JSR Z70 ;NEW PARAM CMP #'$' ;ML SAVE ? BNE SAVT03 ;NO...ERROR ; JSR HEXADR ;GET STRT/END ADDR BCC SAVT03 ;ERROR ; LDA Z84 ;START ADDR STA ZFB LDA Z PAR ;Z84=Z84+1 LDA Z86+1 LDY Z86 CPY Z84 SBC Z84+1 BCS ERAS01 ;Z86 >= Z84 ; RC392X PLA ;Z86 < Z84 PLA JMP RC392 ;WARM START & EXIT ; ; ;--- ASCII ADDR CONVERSION (X,A) --- ; ASC004 JSR ASC002 ;2 CHAR CONV BCC ASC104 ;ERROR ; STA ZB6 ;MS JSR ASC0 ;RESTORE REG JSR RC873 ;GET LINE # INTO Z11 BEQ NLIN04 ;LINE # ONLY ; NLIN05 LDA Z82 ;IN AUTO MODE ? ORA Z82+1 BEQ NLIN04 ;NO ; LDA Z11 ;LINE # FOR NEXT LINE CLC ADC Z82 STA Z5F+1 LDA Z11+1 ADC Z82+1 STA Z5F LDX #$90 ;CONVERT TO DEC SEC JS Y' RC399 JMP $C399 ;IMMED MODE REF CALL RC3AE JMP $C3AE ;TOKENIZE LINE AND INSERT IT RC3B1 JMP $C3B1 ;INSERT LINE INTO SOU;RCE RC442 JMP $C442 ;FIX CHAINING AFTER INS/DEL RC52C JMP $C52C ;NEXT LINE SEARCH RC572 JMP $C572 ;SET COLD START PTRS RC5A7 JMP $C OL ? BEQ NLIN05 ;':' ; LDX Z7C ;TEXT MODE ? BMI CMPK01 ;YES ; JMP RC3AE ;TOKENIZE BASIC LINE ; ;---- SQUISH TEXT LINE ---- ; CMPK01 LDX #$FF LDY #$00 CMPK02 INX LDA Z200,X ;SKIP SPACES CMP #$20 BEQ CMPK02 BNE CMPK04 ;(=JMP) ; CMPK03 INX CMPK04 L JMP $E62E ;IRQ JMP VECTOR RF0B6 JMP $F0B6 ;SEND IEEE 'TALK' RF0BA JMP $F0BA ;SEND IEEE 'LISTEN' RF128 JMP $F128 ;SEND IEEE 'SEC ADDR' RF16F JMP $F16F ;SEND IEEE 'CHARACTER' RF17F JMP $F17F ;SEND IEEE 'UNTALK' RF183 JMP $F183 ;SEND IEEE 'UNLISTEN' RF18C !JMP $F18C ;IEEE INPUT ADDR RF2AE JMP $F2AE ;CLOSE LOG FILE IN AR RF301 JMP $F301 ;TEST STOP KEY RF355 JMP $F355 ;INPUT PRG RF40A JMP $F40A ;'SEARCHING' RF42E JMP $F42E ;'LOADING' OR 'VERIFYING' RF466 JMP $F466 ;OPEN PRG FILE RF524 JMP $F524 ;OPEN IEEE FI BUFF BEQ CMPK07 ;END OF LINE ; STA Z200,Y INX INY BNE CMPK06 ;BRANCH ALWAYS ; CMPK07 STA Z200,Y ;FIX FAKE LINK INY INY STA Z200,Y INY INY INY JMP RC3B1 ;INSTALL LINE ; ; ;--- ERASE SCREEN UP OR DOWN --- ;FROM THE PRESENT CURSOR POSITION ;SYNT G-SAVMSG JMP PMESS ; ; ;-- SAVE PRG OR TEXT FILES -- ; SAVE00 JSR SAVTST ;SAVE PARAM LDA Z7C ;TEXT ? BPL SAVE04 ;NO... ; JMP PUTF01 ;SAVE TEXT ; ; ;--- SAVE PRG FILE --- ; SAVE04 JSR RF68D ;ZC9_Z2A ZFB_Z28 LDA #$61 STA ZD3 ;SAVE SEC ADDR SAVE14 JS R ;Z84=Z84-AR LDX #$01 ;SWAP Z86 & Z84 ERAS04 LDA Z84,X PHA LDA Z86,X STA Z84,X PLA STA Z86,X DEX BPL ERAS04 BMI ERAS01 ;ALWAYS ; ERAS02 LDA COL ;-40 OR -80 JSR Z84MAR ;Z84=Z84-AR ERAS01 LDX #$00 LDA #$20 ;SPACE STA (Z84,X) LDA #$01 JSR Z84 84+1 STA ZFB+1 LDA Z86 ;END ADDR STA ZC9 LDA Z86+1 STA ZC9+1 SAVE05 LDA #$F3 ;DEACT FLAG STA TESBYT JSR RF6BE ;SAVE BASIC PRG JMP DISBRK ;READ ERROR CH EXIT ; ; ;-- INSTALL A NEW NUMBERED LINE -- ; NEWLIN NLIN01 PLA ;BACKUP-1 JSR PLA JSR RESTAX 02 ;2 CHAR CONV TAX ;LS LDA ZB6 ;MS ASC104 RTS ;C=1 ON EXIT IF OK ; ; ;--- PET BASIC 2.0 CONVERSION TABLE --- ; BOT .BYT BOT1 ;BOT OF SCRN $83FF COL .BYT COL1 ;$D8 ;40 COL SCREEN ; RC377 JMP $C377 ;RESTORE DATA PTRS RC392 JMP $C392 ;WARM START W/0'READ R RDB55 ;FLOAT IT JSR RDCE9 ;MAKE ASCII # LDX #$00 ;PUT ASCII # IN KEYB NLIN02 LDA Z100,X BEQ NLIN03 ;DONE ; STA Z26E+1,X INX BNE NLIN02 ;BRANCH ALWAYS ; NLIN03 LDA #$20 ;EXTRA SPACE STA Z26E+1,X INX STX Z9E ;#CHRS IN KBD BUFF NLIN04 CMP #$3A ;E 5A7 ;'RUN' SETUP RC6C4 JMP $C6C4 ;GOTO 'RUN' RC873 JMP $C873 ;ASCII# TO FIXPT IN $11,12 RCDF8 JMP $CDF8 ;CHECK FOR COMMA RCE03 JMP $CE03 ;'SYNTAX ERROR' RDB55 JMP $DB55 ;FIX TO FLT PT RDCD9 JMP $DCD9 ;CONV FIX PT # RDCE9 JMP $DCE9 ;ASCII# TO STRING RE62E! C001 ;OK ; ASC102 JSR RFFCC ;DEFAULT I/O JMP RCE03 ;SYNTAX ERROR ; ASC001 JSR ASCHEX ;CONVERT TO HEX ASL A ASL A ASL A ASL A STA Z100 JSR Z70 ;2ND ASCII CHAR BEQ ASC102 ;ERROR ; JSR ASCHEX ;CONVERT TO HEX ORA Z100 SEC ;OK EXIT RTS ; ; ;- GET !LE RF570 JMP $F570 ;PRINT ERROR RF68D JMP $F68D ;TRANSFER START/END ADDR RF6BE JMP $F6BE ;TRANSFER START/END ADDRRNG RF8E6 JMP $F8E6 ;I/O WAIT ROUTINE RFC7B JMP $FC7B ;RESTORE IRQ ROUTINE ; ;--- BASIC 4.0 (40/80 COL PET) --- ; RC377X JMP $B3ED ;RESTORE D!- AR --- ; Z84MAR DEC Z84+1 ; ;--- Z84 = Z84 + AR --- ; Z84PAR CLC ADC Z84 STA Z84 BCC Z84X00 INC Z84+1 Z84X00 RTS ; ;--- SET BASIC MODE --- ;SYNTAX : ;MB ; MODEB1 LDA #$00 LDX #BASMSG-MES00 LDY #APPMSG-BASMSG BNE MODE02 ;ALWAYS ; ;--- SET TEXT MO! H RC572X JMP $B5E9 ;SET COLD START PTRS RC5A7X JMP $B622 ;'RUN' SETUP RC6C4X JMP $B74A ;GOTO 'RUN' RC873X JMP $B8F6 ;ASCII# TO FIXPT IN $11,12 RCDF8X JMP $BEF5 ;CHECK FOR COMMA RCE03X JMP $BF00 ;'SYNTAX ERROR' RDB55X JMP $CD7F ;FIX TO FLT PT RDCD9X JMP $!COMMAND -- ; BASC01 LDX Z7C BPL OOPS01 ;ERROR-BASIC MODE RTS ; ;--- TEST RUN COMMAND --- ;PRINT OOPS IF IN TEXT MODE ; RUNC01 LDA Z7C BMI OOPS01 ;ERROR-TEXT MODE ; JSR AUTOFF ;AUTO=OFF LDX #$FF STX ZB5 ;TMPAR (CHRGET) INX STX Z77 ;BACKUP SCAN PTR!E ;SEND IEEE 'UNTALK' RF183X JMP $F1B9 ;SEND IEEE 'UNLISTEN' RF18CX JMP $F1C0 ;IEEE INPUT ADDR RF2AEX JMP $F2E2 ;CLOSE LOG FILE IN AR RF301X JMP $F335 ;TEST STOP KEY RF355X JMP $F38F ;INPUT PRG RF40AX JMP $F449 ;'SEARCHING' RF42EX JMP $F46D ;'LOADING' OR!A ; ;--- PRINT HEX VAL --- ; DISHEX PHA ;SAVE AR LSR A LSR A LSR A LSR A JSR ASCONV ;CONVERT TO ASCII TAX PLA AND #$0F ;STRIP RH JSR ASCONV ;CONVERT TO ASCII PHA TXA JSR RFFD2 ;PRINT ASCII-L PLA JMP RFFD2 ;PRINT ASCII-R ; ; ;--- CONVERT AR 9RQ ROUTINE EN40 ;END OF MOVE TABLE ; .FIL DFH.ED.COM-S1 TEN' RF18CX JMP $F1C0 ;IEEE INPUT ADDR RF2AEX JMP $F2E2 ;CLOSE LOG FILE IN AR RF301X JMP $F335 ;TEST STOP KEY RF355X JMP $F38F ;INPUT PRG RF40AX JMP $F449 ;'SEARCHING' RF42EX JMP $F46D ;'LOADING' OR!PR01 ;SUPPR ; JMP RFFD2 ;PRINT IT ; ; ;--- ASCII TO HEX CONVERSION --- ; ASCHEX CMP #$3A PHP AND #$0F PLP BCC ASCHE1 ;0-9 ADC #$08 ;A-F ASCHE1 RTS ; ; ;--- CONVERT 2 ASCII BYTES TO HEX -- ; ASC002 LDA #$00 STA Z100 JSR Z70 ;GET ASCII CHAR BNE AS"START AND END ADDR IN Z84 AND Z86 - ; HEXADR JSR ASC004 ;GET START ADDR BCC ASC102 ;ERROR ; STA Z84+1 ;START ADDR STX Z84 INC Z77 ;SKIP NEXT CHAR (,-,$ SP) BNE HEXBYT INC Z77+1 ; HEXBYT JSR ASC004 ;GET NEXT ADDR BCC ASC102 ;ERROR ; STA Z86+1 ;SAV!PROG BYTE UNNEW2 LDA (Z28),Y BEQ UNNEW5 ;EOL INY BNE UNNEW2 ;TRY 250 CHAR ; JMP RC377 ;ERROR EXIT ; UNNEW5 TYA ;UPDATE LINK LDY #$00 CLC ADC Z28 STA (Z28),Y LDA #$00 ADC Z28+1 INY STA (Z28),Y JMP DLET04 ;FIX CHAINING EXIT ; ; ;--- Z84 = Z84 !ATA PTRS RC392Y JMP $B406 ;WARM START W/0'READY' RC399X JMP $B40D ;IMMED MODE REF CALL RC3AEX JMP $B422 ;TOKENIZE LINE AND INSERT IT RC3B1X JMP $B425 ;INSERT LINE INTO SOU;RCE RC442X JMP $B4B6 ;FIX CHAINING AFTER INS/DEL RC52CX JMP $B5A3 ;NEXT LINE SEARC!DE --- ;SYNTAX : ;MT ; MODET1 LDA #$80 LDX #TXTMSG-MES00 LDY #BASMSG-TXTMSG MODE02 STA Z7C JSR PMESS JMP RC392X ;WARM START ; ; ;--- DISPLAY MODE AND EXIT --- ; MODED1 LDA Z7C BMI MODET1 ;TEXT MODE BPL MODEB1 ;BASIC MODE ; ; ;-- TEST IF VALID TEXT !CF83 ;CONV FIX PT # RDCE9X JMP $CF93 ;ASCII# TO STRING RE62EX JMP $E455 ;IRQ JMP VECTOR RF0B6X JMP $F0D2 ;SEND IEEE 'TALK' RF0BAX JMP $F0D5 ;SEND IEEE 'LISTEN' RF128X JMP $F143 ;SEND IEEE 'SEC ADDR' RF16FX JMP $F19E ;SEND IEEE 'CHARACTER' RF17FX JMP $F1A! JMP RESTAX ;OK-EXECUTE RUN ; OOPS01 LDX #OOPMSG-MES00 LDY #TXTMSG-OOPMSG JSR PMESS JMP MODED1 ;DISPLAY MODE ; ; ;--- DISPLAY HEX ADR --- ; DISADR LDX #HEXMSG-MES00 LDY #ENDMSG-HEXMSG JSR PMESS LDX #$01 LDA ZFB-1,X PHA LDA ZFB,X JSR DISHEX PL! 'VERIFYING' RF466X JMP $F4A5 ;OPEN PRG FILE RF524X JMP $F563 ;OPEN IEEE FILE RF570X JMP $F5AF ;PRINT ERROR RF68DX JMP $F6CC ;TRANSFER START/END ADDR RF6BEX JMP $F6FD ;TRANSFER START/END ADDR RF8E6X JMP $F92B ;I/O WAIT ROUTINE RFC7BX JMP $FCC0 ;RESTORE I!TO ASCII --- ; ASCONV CLC ADC #$F6 BCC ASCON1 ;0-9 ADC #$06 ;A-F ASCON1 ADC #$3A RTS ; ; ;--- TOGGLE PRINT SUPPRESS FLAG --- ; SUPR00 LDA Z0D EOR #$FF ;MINUS=SUPPRESS STA Z0D SUPR01 RTS ; ; ;-- PRINT IF SUPPRESS FLAG OFF -- ; RCA45X BIT Z0D BMI SU" è SAVE "@0:PROOF PET",8#ò:Rü"A BASIC PROGRAM PROOFREADER FOR PET/CBM"X:" BY: BLAINE D. STANDAGE 07-15-84«" 535 N. WAVERLY, ORANGE, CA. 92667Á$" (714) 633-1784Ç.:ß8™ "“PLEASE WAIT..."õB I²32512 ¤ 32686L‡ A:"E-END ADDR STX Z86 ;LOAD-START ADDR RTS ; ; ;--- CHANGE DISK DEV # --- ; SETDVN JSR Z70 ;NEXT CHAR BCS ASC102 ;NOT DEC # ; JSR RC873 ;CONVERT TO HEX LDA Z11 STA TMPDVN DISDVN LDX #POSMSG-MES00 LDY #STMSG-POSMSG JSR PMESS LDX TMPDVN LDA #$00 JS"119,208,002,230)ºƒ 120,142,176,127,140,177GÄƒ 127,104,168,104,170,072eÎƒ 152,072,224,180,240,013ƒØƒ 224,195,240,009,174,176¡âƒ 127,172,177,127,076,118¿ìƒ 000,165,119,141,066,127Ýöƒ 141,082,127,165,120,141ûƒ 067,127,141,083,127,17"6,178,127,169,019'dƒ 032,210,255,169,018,032Enƒ 210,255,169,058,032,210cxƒ 255,174,175,127,169,000‚ƒ 172,252,255,192,022,240ŸŒƒ 006,032,217,220,076,154½–ƒ 127,032,131,207,169,032Û ƒ 032,210,255,032,210,255ùªƒ 173,178,127,133,216," C²CªA: — I,A: ‚ I%V‹ C²23728 § 1140@`™ "THERE IS AN ERROR"cj™ "IN THE DATA STATEMENTS.": €‡t: ™ "“PROOFREADER ACTIVATED."œ~— 52,0: — 53,127«ˆž 32512: ¢±’:Ïœƒ 169,076,133,112,169,013í¦ƒ 133,113,169,127,133,114°ƒ 096,230,eR RDCD9 ;DEC DISPLAY LDA #$20 ;SPACE JSR RFFD2 JSR RFFD2 JMP MODED1 ;DISPLAY MODE EXIT ; ; .END 4+1 ;START ADDR STX Z84 INC Z77 ;SKIP NEXT CHAR (,-,$ SP) BNE HEXBYT INC Z77+1 ; HEXBYT JSR ASC004 ;GET NEXT ADDR BCC ASC102 ;ERROR ; STA Z86+1 ;SAV"3 ƒ 002,002,201,000,240,2247ƒ 201,032,240,220,169,000Uƒ 141,175,127,173,002,002s(ƒ 201,000,240,022,201,032‘2ƒ 240,007,024,109,175,127¯<ƒ 141,175,127,238,082,127ÍFƒ 208,233,238,083,127,076ëPƒ 081,127,165,216,141,178 Zƒ 127,20/169 ´ƒ 013,032,210,255,076,040! ¾ƒ 127240,220,169,000Uƒ 141,175,127,173,002,002s(ƒ 201,000,240,022,201,032‘2ƒ 240,007,024,109,175,127¯<ƒ 141,175,127,238,082,127ÍFƒ 208,233,238,083,127,076ëPƒ 081,127,165,216,141,178 Zƒ 127,20